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Salut les Jipsiens. 


Stop ! 


Arrêlons-nous un peu, posons nos affaires sur le sable, et jetons 
un regard en arrière. 


Il y a trois ans, vous vous en rappelez peut-être, la présentation 
de notre Journal n'était guère attrayante. 


Aujourd'hui, nous pouvous être fiers de Notre Club : qualité de 
présentation, qualité des articles et des programmes. peut-être 
un peu trop même. 


La complexité croissante des sujets abordés risque de jouer 
contre nous. Les quelques membres qui donnent de leur temps 
pour que vous puissiez lire ces lignes se contentent de mettre en 
forme les articles qui arrivent. Une constatation s'impose : peu 
d'articles pour débutants, presque plus pour les petites machines. 
Le fossé se creuse de jour en jour entre le petit noyau "de ceux 
gui croient savoir” et “ceux qui croient ne pas savoir”. 


Le remède : que chacun nous fasse parvenir un article (un seul 


suffirait), quelque soit son niveau "supposé" et la diversité sera 
retrouvée. 


À vos plumes, et au plaisir de vous lire 


Pierre David 
Jean Jacques Dhénin 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, 
en plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos 
idées ! Plus vous en apporterez, et plus vous en trouverez chez vos collègues 
de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, 
discussion ou autre n'étant imposé. Un membre du bureau est toujours 
présent. Ainsi, si vous désirez remettre votre article tout frais au Journal, 
si vous avez des suggestions à faire, si vous voulez vous procurer des 
anciens numéros de JPC, ce sera en principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant, venez nous 
rejoindre tous les premiers samedis de chaque mois (sauf en péride de 
vacances scolaires) au : 

Centre de Jeunesse et de Loisirs Jean Verdier 

11 rue de Lancry 

75010 Paris 

et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 
16 et 19h. 


Pour l’accès en métro, trois possibilités s'offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs. 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Pour des raisons techniques (le centre est fermé pour cause de vacances), les 
dates des prochaines réunions ne nous sont pas connues. 


Aussi, nous vous conseillons d'appeler le Club au début du mois de 
Septembre au 42 33 87 73. 


Pierre DAVID 
(P#37, SIG#1) 
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DOCTEUR JPC 


Trotignon Emmanuel (P245) 
15, Ave. Marie Amélie 
60500 Chantilly 


Je profite de mon réabonnement pour la 
période 86/87 pour vous féliciter pour la 
qualité de JPC et ce, malgré les difficultés 
de réalisation et le retard dans la 
distribution. 


A l'issue de cette année écoulée, je 
ne regrette qu’une chose : ne pas avoir su 


trouver le temps (perdu ?) pour assister 
aux réunions mensuelles, études obligent. 
J'ai élaboré pourtant de bons petits 
programmes qui me sont très utiles 
(résolutions d'équations, étude de 
fonctions avec intégration et 
dérivation, recherche de rayon de 


convergence...) dont j'aurais aimé faire 
profiter les lecteurs de JPC ; mais comme 


je n’ai pas de lecteur de carte sur mon 
HP71B... 

Par ailleurs, je compte profiter d’un 
voyage aux USA, dans la région de 
Pittsburg (Pennsylvania), pour faire 


quelques emplettes HP. Connaissez-vous de 
bonnes adresses dans ce coin, et à plus 
forte raison, sur New-York ? 


Dans mon élan, j'aimerais vous 
soumettre un problème que j'ai avec le 
HP71B. Il est très capricieux et de temps 
à autre - généralement au gré d’un 
déplacement en métro - il vide toutes ses 
mémoires (dans le genre "INIT 3") ; comme 
je n’ai pas d'unité de stockage de 
masse, vous imaginez la suite. A ce 
cas pathologique, voici une 
interprétation : du fait des trépidations 
dans la rame, il peut être victime de 
micro-coupures et en rester tout choqué. 
Mais alors, à quoi sert la capa qui nous 
permet de changer les piles les yeux fermés 
et d’une seule main ? Qu'’en conclure ? Il 
y a-t-il un médecin dans la salle qui 
connaisse la solution ? Et dans le cas où 
aucun traitement - fusse-t-il même 
chirurgical - ne serait applicable, existe-t- 
il un moyen subtil de récupérer ce qu'il y 
avait en mémoire ? 


Cher docteur PPC-PC, je vous remercie 
d’avance pour vos réponses à mes questions. 


Grand merci et à un de ces 
jours peut-être... 


E. TROTIGNON 


Réponse du docteur JPC : 


Cher ami, 


Merci pour tes encouragements. Ils résonnent 
agréablement à nos oreilles fatiguées par les 
nuits à taper les articles, à les relire et les 
imprimer. D'ailleurs, et à propos, si d’aucuns 
d’entre vous se prennent d’une subite envie 
de nous aider, ils seront les bienvenus... 


Il nous serait très agréable de 
pouvoir publier tes réalisations (sur 
HP71B ou sur HP41C). Puisque tu ne 


possèdes pas d’unité de stockage de masse, 
envoie-nous-les sur papier. On fera avec... 


Je n’ai aucune adresse intéressante, ni 
dans l’état de Pennsylvanie, ni à New- 
York. Mais peut-être un membre du 
club pourra te répondre. 


En ce qui concerne ton problème, je 
n’ai aucune solution, sauf peut-être, qu’il 
faudrait que tu envisages l'achat d’une unité 
de stockage de masse (cartes magnétiques, 
cassettes ou disquettes). As-tu essayé 
de stocker tes programmes dans des 
ports déclarés "FREEPORT", et voir si ce 
MEMORY LOST les détruit ou pas. Un 
*INIT 3" ne les perturbe pas. 


Sinon, quand tu es dans le métro, pense à 
vérifier que ton HP71 est bien éteint. Nous 
avons eû vent de telles situations se 


terminant par des pertes de mémoire 
similaires aux tiennes. 


Soigne bien ton HP71B 


Philippe 
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André Henry (P281) 
(chez M. Vauitier) 

93, Bd Mendès France 
50100 Cherbourg 


Cher président, 


Depuis mon adhésion au club, j'attends 
une assistance au sujet de la logique de 
codage des codes-barres. 


A cette époque, j'avais joint à mon 
dossier d'inscription une note à ce sujet, 
demandant de l'information pour Ja 
création manuelle de mes propres codes- 
barres tant pour les données numériques 
ou alpha que pour les nombreuses 
fonctions nouvelles pour 
lesquelles HEWLETT-PACKARD n’a pas 
cru devoir éditer ni étiquettes, ni feuilles 
de travail. | 
J'ai en vue une application professionnelle 
de ces codes-barres, mais je suis bloqué 
par le codage sur le principe duquel 
aucun revendeur n’a pu me fournir d’autre 
conseil que d’adhérer au PPC. 


Depuis lors, j'ai bien reçu deux numéros de 
la revue, le No29 et le No30, mais aucun 
signe que mon appel ait été entendu. 
J'attends donc mais, comme soeur Anne, 
“Je ne vois que la neige qui poudroie et 
l'herbe qui verdoie". Faudra-t'il que l'été 
passe avant qu’un cavalier ne vienne me 
secourir? 


Comme bien d’autres, je reste très attaché 
à ce merveilleux pico-ordinateur qu'est le 
HP4ICX et, comme bien des lecteurs du 
JPC, je regrette de voir s'amenuiser dans 
ce journal le chapitre 41C. 


Je comprends bien que l’équipe de 
rédaction ne peut compter qu'avec ce que 
lui fournissent les membres du club. 
Mais je suis trop nouveau lecteur pour 
juger de ce qui est susceptible 
d’intéresser d’autres lecteurs, sans 
faire double emploi avec ce qui a pu déjà 
être publié dans la revue ou ailleurs. Je 
serais donc intéressé par un index 
des articles ou programmes publiés 
depuis deux ans par la revue, ce qui me 
permettrait de trier, parmi ceux que j'ai 
conservés, les programmes qui pourraient 
intéresser d’autres membres. 
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Je viens de faire un pas dans la 


pratique informatique en m’équipant 
d'un PCW256 de Amstrad. J'espère ne 
pas être déçu par ce matériel dont le 


prix était alléchant. Pour l'instant je suis 
satisfait du traitement de texte 
LOCOSCRIPT mais les langages BASIC, 
CP/M#+, Dr LOGO et autres me 
déroutent encore. Une formule d’assistance 
à ce sujet est-elle dans les moyens du 
Club ? 


Avec mes remerciements anticipés, et 
l'espoir d’une prochaine réponse. 


A. HENRY 


Réponse d’un JPC désolé 


Cher ami, 


Effectivement, je me souviens que lors de 
ton inscription au club, tu m'avais posé 
cette question sur les codes-barres. Je 
confirme ma précédente lettre, nous avions 
fait paraître un certain nombre d'articles à 
ce sujet dans les premiers numéros du 
journal. Si tu les désires, ils sont toujours 
disponibles. J'ai en prévision de traduire 
certains articles parus dans CHHU et 
traitant des codes barres pour HP4I avec 
leur tracé sur imprimante THINKJET. 


Comme bien d’autres membres, tu 
vois s’amenuiser la rubrique 41C. Nous 
n’y sommes pour rien siles possesseurs de 
cette machine n’envoient que très peu 
d'articles. N'oublie pas que tout ce que 
nous recevons paraît dans le Journal. Il 
n'existe aucun index des articles parus 
depuis la création du club. Par contre, le 
JPC Nol0 contient l’index des articles parus 
dans les numéros 1 à 10, le No20 l'index 
des articles parus dans les numéros 11 à 20, 
dans le No30 ceux des numéros 21 à 30. 


———— 


Quant à ton Amstrad, j’ai le regret de te dire 
que cette machine n’est pas notre vocation. 


A bientôt et bon travail. 


Philippe 


COURRIER DU COEUR 


Messieurs, 


Voulez-vous rendre service aux nonvoyants ? 
C'est simple, il vous suffit de diffuser 
l'information suivante parmi vos adhérents : 


Nous recherchons des lecteurs bénévoles pour 
enregistrer, sur cassettes, des ouvrages 
d’informatique. Il suffit aux volontaires de 
téléphoner au numéro indiqué cidessous. 


Merci d'avance 


KR. Morin 

Société de Placement et de Secours 

en faveur des Elèves et Anciens Elèves 
de l’Institut National des Jeunes Aveugles 
56, Bd des Invalides 

75007 PARIS 


Tél: 
45 67 35 08, lundi, mardi jeudi de 14 à 18h. 


Denis Castelain 
La Neuville Vault 
60112 Milly Sur Therain 
Tél : Bureau 44 46 87 42 
Domicile 44 82 23 15 
Vend une HP41 CV accélérée + module Time 
+ module XFonctions + manuels + docs : 
2000 F 


Veinière 
Collège Anatole France 
28205 Chateaudun Cédex 





Vend 

HP41C + module Quad + module XFonctions 
(achetés en 1983) : 1200 F 

HP12C (achetée en 1984) : 700 F 


Jack KR. Brugger 

35/37, rue Jean Le Galleu 

94200 Ivry / Seine 

Tél : 46 58 66 02 

Vend HP4ICV + module XFonctions + 
module Games + module Finances + Batterie 
+ Chargeur + Clavier souple : 2000 F 
Imprimante 82143A : 2200 F 

Lecteur de cassettes 82161A : 3300 F 
Lecteur de cartes + 70 cartes + programme 
navigation + programme aviation : 1500 F 
module HPIL 82160 : 750 F 


Jean Roch Schmitt 

98ter avenue Foch 

94120 Fontenay / Bois 

Tél : 48 73 75 73 

Vend HP71B + Lecteur de cartes (70 cartes) 
+ 2 modules 4 Ko : 

6500 F. 


Alain Goubault 
27 avenue Brimont 
78400 Chatou 
Tél : Bureau 45 61 99 11 
Domicile 39 52 56 01 
Vend HP4ICX + Batterie + Chargeur 
2000 F 
Module HPIL : 500 F 
Lecteur de cartes : 400 F 
MLDL Sicape + Eprom MLI1H : 1250 F 
Port Extender Sicape : 400 F 
Nombreux ouvrages HP41 : liste sur 
demande. 


Jean Witté 

13 avenue du Littoral 

Alenya 

66200 Elne 

Cherche à acheter module PPC Rom + 
littérature. 

Cherche à acheter module Advantage + 
littérature. 
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Jean Pierre Bondu 

1 allée des Jonchères 

Domaine de Croix-Marie 

Tél : 30 54 54 00 

Lecteur de disquettes HP9114A : 3000 F 
Thinkjet HP2225B : 3000 F 

HP71 + HPIL + 3 Modules 4Ko + Text 
Editor : 4000 F 


Emmanuel Trotignon 

15 avenue Marie Amélie 

60500 Chantilly 

Tél : 44 57 38 29 (après 20h) 

Vend HP41C (82) + lecteur de cartes (82) + 
modules quad et XFonctions + batterie : 
3500 F 


HP86B (128 Ko ram + disque électronique) + 
moniteur vidéo 82913A + double lecteur 3 
pouces et demi (2x270Ko) HP9121D + tiroir 
Rom 82936A + rom plotter + carte 
d'extension 128K HP82909A + carte CP/M 
82900A + imprimante HP82905A + cables 
HPIB 45529A + logiciels (Word80, Graph 
presentation Pac, Visicalc plus, File80, 
Multiplan) + disquettes 3 pouces et demi (30 
dont 12 vierges). Le tout, 50000 FF 


Alain Bourg-Broc 

13 rue Albert Laville 

45000 Orléans 

Tél : 

Lundi au vendredi, 10 à 17h (1) 43 87 23 51 
Lundi au samedi, 20 à 21h : 38 62 77 83 
Vend HP4ICV (déc. 81) + modules 
Xfonction + extension mémoire + finance + 
statistiques + lecteur de cartes + manuels + 
doc : 3500 F 


A CE TRAIN LE MATERIEL 
N'AURA PLUS DE PRIX | 
—_— 


Alain Gillet 
Tél: 43 67 54 44 après 18h 


Vend : 

HP41ICV (batterie+chargeur) : 1500 F Module 
math : 150 F Lecteur de cartes (+ 60 cartes) : 
800 F Lecteur de code-barre: 500 F HPIL : 
500 F Imprimante 82162A : 2000 F Total 
5450 F à débattre pour achat de l’ensemble. 
Livres Programmation synthétique (Dr. 
Wickes) 60 F + La programmation 
synthétique c'est facile (K. Jarret) 60 F + 
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Programmer HP-41 (Descamps/Dhénin) 60 F 
+ Les fonctions d'extension c’est facile (K. 
Jarret) 80 F + Time Module solution I (HP) 
80 F + Au fond de la 41 (Dodin) 60 F 


B.C.M.W. 

2 bis Rue N. HOUEL 

75005 PARIS 

Tel : 

43 36 12 05 heures de bureau 


Vend une trentaine de 41CV + Xfunctions + 
2* Xmemory 1100F chaque lot 

une trentaine de table traçantes Tandy 
interfacées HPIL 1700F pièce 

une trentaine de lecteurs d’eprom 16K 900F 
pièce 

une trentaine de lecteurs d’eprom 8K 700F 
pièce 

Contacter Mr C.Queyrie. 


François LE GRAND 
Rue de la Poterie 
Trévignon 

29128 TREGUNC 
tél. 98 50 00 10 


1 Math Pac (HP-67-97) 50 Fr 

1 Navigation Pac (HP-67-97) 50 Fr 

1 HP 41-CV 1200 Fr 

1 Module Time (HP-41) 400 Fr 

1 Module Extent de Fonc (HP-41) 400 Fr 
1 Module HP-IL (HP-41) 700 Fr 

1 Lecteur de codes-barres (HP-41) 700 Fr 
1 Lecteur de cartes (HP-41) 800 Fr 

400 Cartes Magnétiques (HP-41) 300 Fr 

1 Touchpad (clavier plat) (HP-41) 50 Fr 

1 Card Reader + 75 Cards (HP-71) 1300 Fr 
1 Lecteur de Cass+10 Cas (HP-IL) 2500 Fr 


JV 


hp 





CHOC EN RETOUR 


SCANALEX 
Voir JPC 34 J.P. Bondu. 


Si SCANALEX est utilisé pour décortiquer 
EDLEX, une erreur se produit pour le token 
SCROLL Ce fait provient de la position de 
la routine d'éxécution par rapport à son 
point d'appel dans la table Il y a donc lieu 
de transformer la ligne 160 : 


au lieu de 
160 DISP NS: TAB(13):'C'&2$(1,118&')';TAB(17); #1; 
DTHS(Z+HTD(ZS(2]) 


il faudrait écrire 
160 DISP NS; TAB(13);"['82$01,118&']';TAB(17);'#'; 
DTHS(MOD(Z+HTD(Z$S 121) ,(16*5-1))) 


Administrez donc cette correction ! 


ss 


Dans le numéro 31, l’article de Alain 
Herreman sur les GOTO était légèrement 
incomplet : il manquait en effet le 
programme, Faute avouée est à moitié 
pardonnée : 


HEX CREATE VLBL 32 NALLOT 


3 LLOR ( fait l'inverse de ROLL ) 
DEPTH 
1F 
DUP SPa DUP 5- 
DEPTH 2- 5* 
NMOVE 
SPa DEPTH 2- 5* + ! 
THEN ; 
z GOTO 
E5D9 , 
DUP 5* VLBL + à 
DUP 
1F 
HERE - , DROP 
ELSE 
DROP HERE 0 , 


SWAP À + LLOR LLOR 
THEN ;  IMMEDIATE 


: LBL 
DUP 5* 
HERE SWAP 








VLBL + |! 
A + 
DEPTH 1- 2/ DUP 
1F 
0 
DO 
DUP 1 2* 3 + PICK = 
IF 
1 2* 3 + DUP 
ROLL DROP 1- ROLL -1 
RPa 5+ + ! 
-1 RPa +! 
HERE OVER 
- SWAP ! 
THEN 
LOOP 
ELSE DROP 
THEN 
DROP ; IMMEDIATE 


: G (COMPILE) : 32 30 NFILL ; 
-D NFA: G 2+ +! 
DECIMAL 


IMMEDIATE 


La définition de NFA: étant : 
: NFA: !‘ NFA :; 
avec 


: NFA 

4- 

BEGIN 
DUP Ca 
80 AND O= 
WHILE 
2: 

REPEAT ; 


Dans le programme de développements 
limités de JPC No34, par le même Auteur, la 
définition de COEFF@ ne possède que l’en- 
tête Voici la définition complète : 


24 


: COEFFQ 16 * + STO ; 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne 
savez pas sous quelle forme "l'équipe de 
rédaction" souhaite recevoir votre prose (ou 
vos vers) ! C’est ici que se trouvent les 
réponses à vos questions 


Dans la mesure du possible vous devez nous 

envoyer vos écrits sur support magnétique : 
carte, cassette ou disquette Soyez sans 
crainte, nous vous retournerons vos biens 
après copie 


Si vous ne pouvez pas utiliser de support 
magnétique, parce que vous habitez dans les 
Cévennes, qu’il n’y a pas un seul autre 
membre du club à 100 km à la ronde, et 
aucun revendeur HP pour vous permettre de 
faire votre copie alors et alors seulement, 
faites-le sur papier 


COMMENT FORMATER VOTRE TEXTE 


Que ce soit sur une feuille de papier ou sur 
support magnétique, respectez le format 
JIPSIEN (50 caractères par ligne 
approximativement) 


Pourquoi ? 

Imaginez les difficultés rencontrées par 
“léquipe de rédaction" pour visualiser des 
lignes de 96 caractères, voire davantage ! 


Utilisez des fichiers texte dans la mesure du 
possible Si vous ne possédez pas de module 
Text Editor, et dans ce cas seulement, 
rédigez votre texte dans un BASIC sous 
forme de remarques Mais soyez conscients 
que le travail d'élimination des numéros de 
lignes prend du temps D'ailleurs nous 
pouvons vous fournir un programme éditeur 
de texte (pour l'instant moitié BASIC, moité 
LEX, prochainement entièrement en 
ASSEMBLEUR) 


Préparez votre texte pour que le travail de 
formattage soit le plus court possible Pour 
cela, utilisez les 2 symboles "*" et "\" décrits 
dans le formateur JIPSIEN : 

"At est utilisé pour centrer une ligne : Ex : 


TITRE 
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"" [CHRS$(92)] est utilisé pour délimiter les 
paragraphes : 


Ex: 

\Début du paragraphe exprimant le contenu 
de vos idées, qui même si vous en doutez 
intéressera certains des membres du Club 
Surtout si vous vous sentez débutant Les 
articles pour débutants écrits par des 
débutants, sont ceux qui manquent le plus 
Fin de votre paragraphe\ 


Sautez une ligne entre chaque paragraphe, 
deux lignes entre le titre et votre article et 
deux lignes entre votre article et votre 
signature 


Ne soulignez pas les titres et ne laissez pas 
les caractères de formattage du module 
"Editeur de Texte” 


Ne prenez pas FRALEX pour mettre vos 
accents Cela nous obligerait à passer votre 
texte au peigne fin pour remplacer chaque 
caractère spécial par son équivalent en 
ROMANS (police de caractères de la 
THINKJET et de la LASERJET) Nous 
pouvons vous fournir un CHARSET 
ROMANB et un jeu de touches assignées très 
pratique 


Relisez bien votre article Nous passons une 
centaine d'heures à chaque journal pour 
modifier l'orthographe ou la syntaxe de vos 
articles Il est préférable de répartir ce 
temps-homme entre plusieurs personnes (les 
auteurs notamment) 


Vous aimez commencer par lire un article 
décrivant le but d’un programme, BASIC ou 
autre, son mode d'emploi et disposer d’un 
exemple N'hésitez donc pas à présenter votre 
travail comme vous aimeriez le trouver dans 
JPC 


Vérifiez votre programme Eh oui ! Il est 
fréquent qu'après la dernière mise au point, 
dans l’euphorie d’avoir enfin réduit le 
dernier bogue, et dans la hâte de le mettre 
sous pli, vous recopiez une version antérieure 
et il nous faut quelques heures pour débuger 
un programme que nous n'avons pas écrit 
C’est coton ! Pour les BASICS n’envoyez que 
des versions sous forme de textes (utilisez 
TRANSFORM INTO TEXT) cela nous évite 
de chercher à quoi correspondent les 
XWORD de votre programme Prenez même 
la précaution de commencer par une 





remarque précisant les LEX utilisés par votre 


programme 


Vous trouverez dans ce numéro l’ensemble 
des logiciels nécessaire pour vos créations : 


CHARLEX 
TEXTEK 


DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 


KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 


Caractères ROMANB 
Assignation des caract accentués 


Jean-Jacques DHENIN 


“fu! ,CHRS(197); 
1fE' ,CHRS(193); 
1fR',CHRS(201); 
1fY!,CHRS(203); 
“FU! ,CHRS(195); 
1f11,CHRS(209); 
“#0! ,CHRS(194); 
“#71 ,CHRS(155); 
1f81,CHRS(124); 
1191 ,CHRS(95); 

1/1 ,CHRS(92); 

sfA',CHRS(192); 
1fS',CHRS(200); 
1fD',CHRS(205); 
1fJ",CHRS(207); 
1fK1,CHRS(221); 
1fL!,CHRS(206); 
1f*1,CHRS(160); 
“fC',CHRS(181); 
1f11,CHRS(96); 

1f-1,CHRS(126); 


LEX 
1D 
HSG 
POLL 


ENDTXT 


PCONFG EQU 
bdCHAR  EQU 
bCHARS  EQU 
1/ODAL EQU 
I/OALL EQU 


"CHAR! 
#E1 

0 
CHAROO 


#FB 
#3FB 
#BFB 
#11A41 
#11970 


CHAROO 


CHARO5 


CHAR10 


LC(2) PCONFG 
?B=C 8 
GOYES CHAR10 
RTNSXM 


LC(3) bdCHAR 
GOSBVL I/ODAL 


C=D 
Rè=C 
c=0 


A 


A 


CHAR7O 


CHAR80 


LCC1) 
B=C 
LC(3) 
GOSBVL 
C=R2 
D=C 
GONC 
GOSUB 
D1=D1+ 
LC(2) 
DATI=C 
D1=D1- 
DATI=C 
RTNSXM 
C=RSTK 
DATI=C 
RTNCC 
GOSUB 
CON(3) 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
BSS 
Bss 
BSS 
Bss 
BSS 
BSS 
BsS 
Bss 
BSs 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
BSS 
BSS 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
NIBHEX 
BSS 
NIBHEX 
NIBHEX 
BSS 
NIBHEX 





7 
A 
CHARS 
1/OALL 


A 


CHARO5 No room 


CHAR80 
5 
01 


A 


CHAR70 

94*12 
834565558100 
835565458100 
024555658700 
026555658700 
836555658100 
83645454A300 
004497240000 
808094A2C180 
814A46424200 
835545558100 
0054C7140000 
C3142404C700 
83241414A700 
02078A02F300 
12*2 

12*2 

12*2 

12*2 

12*2 

12*2 

12*2 

12*2 

12*2 
80C1A2808000 
8080A2C18000 
8040E3408000 
8001E3018000 
12*2 

12*2 
000020100000 
001020000000 
002010200000 
001000100000 
002010201000 


12*2 173 à 


45E755142400 
101010101000 


12*2 177 à 


000070507000 


128 6 (Fralex) 
129 è (Fralex) 
130 à (Fralex) 
131 à (Fralex) 
132 & (Fralex) 
133 ô (Fralex) 
134 5 (Fralex) 
135 -> 


136 ç (Fralex) 
137 & (Fralex) 
138 1 (Fralex) 


139 à (Fralex) 
140 à (Fralex) 
141 (13+128) 


160 <- 
161 -> 
162 * 
163 v 


168 
169 
170 
171 
172 
174 
175 
176 
178 
179 
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dE 


BSss 12 180 

NIBHEX 83444C444400 181 ç 
NIBHEX 079011120700 182 À 
NIBHEX 500750509700 183 
NIBHEX 000007000000 184 ; 
NIBHEX 038454040200 185 & 
NIBHEX 14E322E31400 186 

NIBHEX 84E794142400 187 £ 


BsSsS 12 188 
NIBHEX 02E455932000 189 
Bss 12*2 190 à 191 


NIBHEX 026555658700 192 à 


NIBHEX 836555658100 193 è 
NIBHEX 836454648300 194 8 VOILA UN JOURNAL QUI À DU CARACTERE ! 
NIBHEX 832414248700 195 à V 
NIBHEX 024565558700 196 à 
NIBHEX 834565558100 197 é 
NIBHEX 834464548300 198 6 
NIBHEX C3042414C700 199 ü 
NIBHEX 024555658700 200 à 
NIBHEX 835565458100 201 à 
NIBHEX 835464448300 202 à 
NIBHEX C3142404C700 203 à 
NIBHEX 025545558700 204 à 
NIBHEX 835545558100 205 & 
NIBHEX 835444548300 206 6 
NIBHEX C3140414C700 207 ü 
NIBHEX 875141418700 208 À 
NIBHEX 004497240000 209 i 
NIBHEX E3159454E300 210 6 
NIBHEX C7A0F7949400 211 Æ 
NIBHEX 024555458700 212 à 
NIBHEX 008447140000 213 f 


NIBHEX C523A262D100 214 
NIBHEX 424587458400 215 = CS 
NIBHEX 875141518700 216 À 
NIBHEX 009447040000 217 À 
NIBHEX 835444548300 218 Ÿ 
NIBHEX C3140414C300 219 DU 
NIBHEX C74565554500 220 Ë 
NIBHEX 005407140000 221 i 





END 
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DUR ET MOU 


La HP18 

Un peu de hard 

Mettez un PC dans votre boucle 
Assemblage d’enfer 

Ah ! Dou dou dou 


J. Taïllandier & P. David 
J. Baudier 
S. Barizien 
P. David & J. Taïllandier 


12 
12 
13 
16 
17 
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LA HP18 


HP vient d'annoncer aux Etats Unis une 
nouvelle calculatrice, appelée : 
"Business Consultant”. 


Cette machine a une vocation purement 
“business”, c’est à dire : 

- calculs financiers nettement plus 
sophistiqués que la HP12C, par exemple : 
calcul de taux de rendement interne sur flux 
quelconques 

- carnet d’adresses 

- gestion de rendez-vous 


Cette calculatrice n'utilise pas la notation 
polonaise inverse, mais un mode 
d'introduction de formules présenté par HP 
comme révolutionnaire. 


Par ailleurs, elle dispose de touches de 
fonctions, dont la signification s'affiche en 
clair à l’écran. 


Comme vous pouvez le deviner, cette 
machine a donc un écran de plusieurs lignes, 
malheureusement assez courtes. L'écran est 
constitué d’une matrice de points. 


Elle se présente sous la forme d’un carnet 
ouvrant vertical, avec à gauche les touches 
alphabétiques, et à droite les touches 
numériques, les touches de fonction et 
l’afficheur. 


La quantité de mémoire vive serait d'environ 
1 Ko, ce qui ne nous semble pas énorme 
compte-tenu de toutes les caractéristiques 
annoncées. 


Son prix devrait avoisiner les 2000 F, et la 
disponibilité est immédiate aux Etats-Unis. 


Janick Taillandier et Pierre David 


UN PEU DE HARD 


Chers amis bonjour. 


Je profite du fait que mon 71 soit avec moi 
et que j'ai 5 minutes pour vous parler d’un 
nouveau circuit HP-IL. 


Comme chacun sait, tout appareil HPIL qui 
se respecte est équipé du circuit 1LB3 de 
chez HP. 


Mais aujourd’hui il existe, ou plutôt il va 
exister, un circuit équivalent fabriqué par 
National Semiconductor. D'après les 
informations que j'ai pu avoir en avant 
première, ce circuit est identique en tout 
point à son homologue de chez HP. 


Vous allez sans doute me demander pourqoui 
National Semiconductor lance la production 
de ce circuit. 


Je me demande même quel est le marché visé 
car à part HP il n’y a pas grand-monde qui 
utilise ce circuit. 


En tout cas, on peut dire que le seul 
avantage que pourrait avoir le NSC851 (c’est 
son nom) par rapport à HP serait le prix. En 
effet l’'ILB3 coûte un peu plus de 200 F, 
auxquels il faut ajouter le prix du 
transformateur d’impulsions soit 100 F 
environ. 


En tout cas, je n’ai pas pu en savoir plus 
chez RTF distributeur de National, car le 
circuit n’est pas encore commercialisé. Donc, 
d’ici fin juin, d’après ce qu’on m'a dit, rien 
de nouveau. Je vous tiendrai au courant des 
suites de cette affaire, très intéressante car 
il semblerait que d’autres constructeurs se 
mettent à l'HPIL. 


J.BAUDIER PPC 192 


——— 


METTEZ UN PC DANS VOTRE 
BOUCLE 


Stéphane Barizien a réalisé un ensemble 
d'outils de développement de logiciels pour 
HP-71 qui fonctionnent sur IBM-PC ou 
compatibles. Ces outils comprennent : 


- CROSS71 cross-assembleur, écrit en Turbo 
Pascal, qui a les mêmes fonctionalités que 


l’assembleur disponible dans la ROM 
Forth/Assembleur. 
- HPILDEV.SYS gestionnaire de 


périphériques (device driver) qui transforme 
le PC en périphérique HP-IL avec lequel le 
71 peut dialoguer en tant que contrôleur de 
la boucle. 


- HPILSEND utilitaire de transfert PC vers 
HP-IL qui permet de transmettre des 
données du PC vers le HP-71. 


- HPILRCV utilitaire de transfert HP-71 
vers PC qui permet de transférer des données 
du HP-71 vers le PC. 


- HPILTERM programme d'émulation de 
terminal qui transforme le PC en 
clavier/écran du 71. 


DESCRIPTION DES PROGRAMMES 


Lors de l'exécution de ÆCROSS71 le 
programme demande à l'utilisateur un nom 
de fichier "source" un nom de fichier "objet" 
et un nom de fichier “listing”. Le fichier 
source peut correspondre soit à un LEX, soit 
à un BIN, en format fixe ou variable et 
accepte le caractère TAB (*I) comme 
séparateur. 


Le code objet généré peut être dirigé vers un 
fichier du PC ou l'utilisateur peut inhiber la 
génération du code. Le listing d'assemblage 
peut être dirigé vers un fichier ou vers les 
périphériques CON ou PRN; DSP est un 
nom de fichier particulier qui permet une 
visualisation à la manière de "MORE". 


CROSS71 supporte toutes les caractéristiques 
de l’assembleur de la ROM sauf les 





primitives FORTH. La pseudo-op BSS peut 
être utilisée avec un nombre de quartets 
compris entre 0 et 65535. 


HPILDEV.SYS est un gestionnaire de 
périphériques qui permet à MS-DOS de 
reconnaître la carte HP comme un nouveau 
périphérique de type caractère. Les données 
transférées vers ce périphérique depuis MS- 
DOS sont stockées dans un buffer de 
transmission ; celui-ci peut être lu depuis 
HP-IL quand le PC est adressé comme 
émetteur et reçoit SDA. Les données 
transférées du 71 vers le PC sont stockées 
dans un buffer de réception qui peut-être lu 
depuis MS-DOS. Les deux buffers font, dans 
la version actuelle, 1023 octets. Quand ce 
périphérique est intégré au BIOS, le PC peut 
être partie prenante de n’importe quelle 
boucle et a les fonctions suivantes (suivant 
les spécifications HP-IL) : 


- C0 : n’est pas controleur ; 


- T1,2,3,4 : quand émetteur, répond à SAI 
(DEVAID = 79 (4F en hexa)), SDI (DEVIDS 
=" PC'<CR><LF>), SST (octet d’état similaire 
au premier octet d'état de l'interface 
HP82164A) et SDA (envoie un ou plusieurs 
octets depuis le buffer de transmission). 
L'appareil peut-être mis dans un mode 
spécial appellé “no _EOT" dans lequel un 
EOT n'est pas généré en réponse à un SDA 
quand le buffer est vide ; 


- Li : en mode récepteur, tout message DOE 
reçu est stocké dans le buffer de réception. 
Quand ce buffer est plein, les opérations 
HPIL sont inhibées jusqu’à ce qu’un READ 
MS-DOS enlève au moins un octet du buffer 
de réception. Le périphérique peut être mis 
en mode “émulation d’affichage HPIL". Dans 
ce mode les messages DOE reçus ne sont plus 
stockés dans le buffer mais envoyés sur 
l'écran du PC ; 


- DCI: les messages DCL et SDC (si 
l’appreil est récepteur) provoquent 
l'effacement des buffers de réception et de 
transmission; 


- SRI : le PC fait une demande de service 
sur la boucle HPIL quand le buffer de 
transmission est non vide ; 
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- AAIl: cet version ne 
l’adressage étendu ; 


supporte pas 


- RLO, PPO, DTO, DD0 : “no capability" ; 


NOTE : la fonction "Power Off" n'est pas 
implémentée L'appareil reste dans l’état 
PONS. Ceci constitue une déviation mineure 
par rapport aux spécifications HPIL. 


HPILSEND est utilisé pour transférer des 
données du PC vers le HP71. 


HPILSEND nom-de-fichier [option] 


envoie le fichier vers le buffer de 
transmission de HPILDEV.SYS ; ce buffer 
est à son tour lu depuis le HP71 grâce à la 
commande HPIL SDA. L'option permet de 
choisir parmi plusieurs méthodes et formats 
de transfert : 


- pas d'option : le fichier est transferé sous 
forme d’une série d’octets avec arrêt sur la 
fin de fichier physique. 


- /O : le fichier à transférer est issu de 
CROSS71 et doit être transmis comme LEX 
ou BIN en suivant les conventions de la 
commande COPY du HP-71. 

I1 suffit d’une commande sur chaque 
machine pour transférer un résultat 
d'assemblage : 


HPILSEND objet/0 sur Le PC 
copy :Pc 10 nom-de-fichier sur Le 71 


- /T : indique que le fichier est un fichier 
texte contenant des chaînes de caractères 
séparées par CR/LF et terminé par 
l'indicateur de fin de fichier de MS-DOS 
("Z). La transmission se termine lors d’une 
fin physique ou logique (*Z) de fichier, 
cependant un *Z est toujours envoyé au 71 
pour l’informer de l’événement. Le 71 peut 
utiliser le programme suivant : 


1 ! Lecture d'un fichier MS-DOS 

5 DIM P,Z$[11,L$11024],NS 

10 P=DEVADDR("PC") @ IF P<2 THEN 'NOPC! 
16 CLEAR :P 

17 INPUT “Filename : ":N$ Q PURGE NS 

18 ASSIGN #1 TO NS 

20 ENTER :P USING "#,A";:2$ 

25 1F ZS$=CHR$(26) THEN 100 

30 ENTER :P;L$ @ PRINT #1;Z$&L$ à GOTO 20 


100 ASSIGN #1 TO * 


- /L : indique que le fichier est un fichier 
texte contenant des chaînes de caractères 
séparées par CR/LF et terminé par le 
caractère MS-DOS de fin de fichier (*Z). Le 
fichier est envoyé en suivant les conventions 
de la commande COPY du 71. Pour cette 
option il faut que le 71 soit mis en mode 
STANDBY ON : en effet le temps nécessaire 
pour effectuer la traduction au format LIF 
peut être plus grand que l'intervalle de 
"time-out” du module HPIL du 71. 


La transmission d’un fichier texte du PC vers 
le 71 requiert simplement une commande sur 
chaque machine : 


HPILSEND nom-de-fichier/L sur Le PC 
COPY :PC TO nom-de-fichier sur Le HP-71 


Dans les options /T et /L tous les caractères 
lus depuis le fichier sont traduits en fonction 
d’une table de conversion IBM -> ROMANB 
avant d’être expédiés. 


IMPORTANT la commande HPILSEND 
doit toujours être exécutée avant la 
commande COPY sur le 71. 


HPILRCV est utilisé pour transférer des 
données du HP-71 vers le PC. 


HPILRCV nom-de-fichier [option] 


demande au PC de lire les données du buffer 
de réception et de les transférer vers le 
fichier spécifié (qui peut être CON ou PRN). 
Le HP-7]1 peut envoyer les données par la 
commande COPY ou par OUTPUT ou 
PLIST. L'option permet de spécifier une 
méthode ou un format de transfert de 
fichier. 


- pas d'option : le PC s'attend à recevoir un 
fichier envoyé par COPY. Le fichier MS- 
DOS est constitué d’une série de chaîne de 
caractères séparées par CR/LF et terminée 
par *Z. Les types de fichiers actuellement 
supportés sont : 


TEXT (SECURE ou non): les 
enregistrements LIF sont convertis en 
chaînes d'octets séparés par CR/LF ; 





DATA (SECURE ou non) et SDATA : 
chaque élément (alphabétique ou 
numérique) trouvé dans le fichier est 
converti dans sa représentation ASCII 
et suivi de CR/LF. Les valeurs 
exceptionnelles ou les chaînes de 
caractères HP-41 sont gérées 
correctement. Un exemple de fichier 
MS-DOS résultant de cette conversion 
pourrait être : 


1.12000000000E 12<CR><LF> 
O<CR><LF> 

Inf<CR><LF> 

Ceci est une chaîne<CR><LF> 
9.13400000000E0<CR><LF> 
<“2> 


Un tel fichier peut être lu par un 
programme Basic, Pascal ou C sur le 
PC. 


Les autres types de fichiers ne sont pas 
reconnus : le fichier n’est pas conservé 
mais la commande COPY se termine 
convenablement. La transmission peut- 
être interrompue par "Ctri-C" sur le 
PC. Le message "Transmission aborted. 
Cleanup in progress..." est affiché. 


- /T : indique que l'entrée est constituée 
d’une série de chaînes de caractères et 
terminée par une fin de fichier standard 
("Z). Les chaînes, les séparateurs et la fin de 
fichier sont recopiés dans le fichier MS- 
DOS. 


Dans le cas de l'option /T et pour les 
enregistrements des fichiers TEXT, tous les 
caractères lus dans le buffer sont traduits de 
ROMANS -> IBM avant d’être écrits dans le 
fichier MS-DOS. 


HPILTERM permet d'utiliser le PC comme 
terminal du HP-71. Vous avez simplement 
besoin du mot clef KEYBOARD IS 
disponible dans la ROM FORTH/Assembler. 
Pour exécuter HPILTERM, taper : 


KEYBOARD IS PC à DISPLAY 1S PC sur le 71, 
HPILTERM sur le PC 


A partir de ce moment, vous pouvez 
contrôler le 71 depuis le clavier du PC et 
afficher les résultats sur l’écran du PC. Pour 
bénéficier des redéfinitions automatiques de 








touches et du support du jeu de caractères 
international, vous devez avoir la version 
KBS:E de KEYBOARD IS (obtenu à partir 
de la version d’origine KBD:A et disponible 
auprés du club sur demande). 


La correspondance des touches est Ja 
suivante : 


Touche PC Caractère(s) envoyé(s) Fonction 71 


nn mms mmmmsmmmmssss som... 


-> “R cursor right 
Up arrow °K cursor up 
Down arrow “J Cursor Down 
Ctrl a “a SST 

<-- *Q Cursor Left 
Ctrl End °2 -LINE 

Ctrl Home Esc E Clear display 
ins 4 1/R 

Del "1 -CHAR 

Ctrl <-- ce cur far right 
Ctrl --> *G cur far left 
Ctrl PgDn "È cursor bottom 
Ctrl PgUp *N cursor top 
PgUp *T CMDS 

Alt R "V RUN 

Alt C NA CALC 

Alt L se LC 

Alt O "1 OFF 


I1 faut noter que la correspondance entre les 
caractères de contrôle reçus par le 71 via 
l’appareil désigné comme KEYBOARD IS est 
effectué par la version KBS:E du LEX. La 
correspondance des séquences d'échappement 
est obtenue via ESCAPE quelqu’en soit la 
version. 


Quand HPILTERM commence à s’exécuter, 
la commande POKE "2F7B1","5" est envoyée 
au HP-71 pour spécifier que les séquences 
d'échappement utilisées sont du type 
HP82163. 


Pour quitter HPILTERM, il suffit d'appuyer 
sur Esc SPACE. Ceci provoque le retour du 
PC sous l’interprèteur de commandes MS- 
DOS et la commande 

KEYBOARD 1S * @ DISPLAY IS * @ CLEAR :PC à STANDBY 
ON 

est envoyée au 71, ceci afin de supprimer 
l’assignation du clavier et de l'écran et de 
vider les buffers du PC. 


D'après un texte en anglais 
de Stéphane Barizien 
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ASSEMBLAGE D'ENFER 


Vous connaissez tous la lenteur légendaire du 
"machin" (alias l’assembleur du module du 
même nom). Depuis environ trois mois, nous 
utilisons un assembleur écrit en langage C 
standard. 


Cet assembleur tourne à présent sur deux 
ordinateurs : 
l'Intégral PC de HP (ne cherchez pas, c’est 
un gros), et un ordinateur que la décence 
nous interdit de préciser davantage (devinez, 
c'est un jeu). 


Histoire de vous allécher : 


Un fichier source assemblé en une heure par 
le "machin" (34 Ko de source) est traité en 
un peu moins de 20 secondes. Avec listing 
d'assemblage et tout et tout, pow pow pow ! 


Cet assembleur digère tout fichier source 
écrit pour le “machin”, sauf les primitives 
Forth (mais si vous savez comment faire, 
écrivez-nous, nous serons très intéressés). 


Nous ne nous sommes pas contentés de faire 
aussi peu que HP. Plusieurs nouvelles 
caractéristiques sont ajoutées, à savoir : 


- affichage final d’une table de références 
croisées. En bref, celle-ci permet d'obtenir 
une liste détaillée des symboles (labels) avec, 
pour chacun d’eux, la valeur en hexadécimal, 
la ligne où il est déclaré, et surtout les lignes 
où il est utilisé. 


- utilitaire annexe de génération de table de 
messages. À partir d’un fichier texte très 
simple, ce programme génère un fichier 
source pour une table de messages, en 
résolvant pour vous tous les problèmes de 
"building blocks", de messages avec insertion, 
et surtout vous prévient si cette table ne 
pourra être utilisée par le HP71 (problème de 
la longueur du premier message). 


- les instructions D0=HEX et DIi=HEX ne 
sont plus boguées, ni B=B+B. 


- et pour la machine que la décence etc., il a 
bien fallu écrire un certain nombre de 
routines destinées à communiquer via RS232 
avec le merveilleux HP71. 
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Ceci représente l’état actuel du chantier. 
Nous allons maintenant nous mettre 
activement (ce sera peut-être déjà fini 
lorsque vous lirez ces lignes) à l’adaptation 
de l’assembleur pour permettre l'assemblage 
de modules séparés, et leur réunion 
ultérieure dans un seul fichier (édition de 
liens). Si vous êtes familiers des IDS, c'est le 
système utilisé par HP pour réaliser les 
64 Ko de Basic, et les modules (Math, 
HPIL...). 


Cette méthode permet de réaliser plus 
commodément de grands travaux. 


Nous vous tiendrons informés de la 


disponibilité prochaine de cette magnifique 
réalisation. 


Pierre David et Janick Taiïllandier 


DES BOGUES |? QUI PARLE DE BOGUES ? 
———— ‘ 


NE 
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HEWLETT-PACKARD 


HP 9114B Portable Data Storagé 


Technical Data Dec. ‘85 





If you've been looking for 
a more powerful storage 
device for your portable 
computer or calculator, look 
no further..….Hewlett-Packard's 
new 9114B gives you up to 
710,000 characters of 
formatted data in a battery- 
powered, portable package. 


FEATURES and BENEFITS 


e Flexibility 
Add flexibility to your 
PORTABLE or Portable 
PLUS! With the HP 9114B, 
you are now able to 
complement your ROM- 
based software with a wide 
selection of disc-based 
software. The 9114B gives 
you extra data storage 
capability. Valuable data 
can be stored on disc and 
carried with you. 


e Portability 
The new HP 9114B 3 1/2- 
inch microfloppy disc drive 
is powered by à dry cell 
battery. Just pick it up and 
carry it with you...no 
power cord to tie you 
down. Andit's 
lightweight...only 5.4 
pounds... making it a 
perfect travel companion. 
Team it up with the 
stackable HP Thinkjet 
Printer for the complete 
portable solution! 





e Battery Charge Indicator 


The LED “Fuel Gauge” on 
the front panel indicates the 
state of battery charge. This 
new feature allows you to 
easily track battery life. 
Then when you're back in 
your office simply plug 
your HP 9114B recharger 
into an AC outlet...and 
you'll be ready for your 
next field visit or business 
trip. 


@ Capacity 


Each 3 1/2” disc holds the 
equivalent of a 400 page, 
double-spaced report. If 
you're a professional on- 
the-move, you need all 
your information at your 
fingertips...Carry your 
client information with you 
and update it right on the 
spot...without relying on 
the central office. 





e IBM Compatibility 





STEEL: 





You can easily share data via 
discs between your HP 
Touchscreen Il, PORTABLE, 
or Portable PLUS, and IBM's 
PC and PC/XT. Simply plug 
your HP 9114B into the back 
of the IBM using the HP 
82973A Portable-Desktop 
Link. For additional detailed 
information see the System 
Configuration Chart on the 
reverse side. 


Extensive System Support 
# HP PORTABLE PLUS 

= HP PORTABLE 

s IBM PC, PC/XT 

# HP Series 40 

s HP Series 70 


JPC 35 Page 17 


__ JEC 35 Page 18 


HP 9114B Technical Specifications 


Performance Characteristics 


HP PORTABLE HP Series 40 
HP Portable PLUS HP Series 70 
# FORMATTED CAPACITY: 
Bytes per Unit 710KB 630KB 
Bytes/Sector 512B/sector 256B/sector 
Sectors per Track 9 16 
WU TRANSFER RATE .:..::5#40-cemscs ete oies ee. 6 KB/sec” 
# AVERAGE SEEK TIME 
(also referred to as disc mechanism access time) . ....... 225 ms (on) 
825 ms (off) 


* The transfer rate listed is the HP 9114B and PORTABLE or Portable 
PLUS system maximum transfer rate. The system rate obtained is 
dependent upon the computer and the application used. 


Functional Characteristics 


© ROTATIONAE SPEED: 25555050 cost cure ee 600 rpm 

# RECORDING TECHNIQUE .................. Double-Density 

N'INSERFACR EE Re de cu mn mas nice a de Gr one HP-IL 

# TOTAL TRACKS PER SURFACE ................ 80 (3 spared) 
(includes spares and system tracks) 

S TRACKS:PER INCH . 050.2 eue de ce ed ce er 135 

8 RECORDING SURFACES ........................:.,.. 2 


Environmental Ranges 
# TEMPERATURE 


OpPRng ans o à eue ones eo on oo een où 048 0 10° to 4°C 
(50° to 104°F) 
Nod-Operating "ns. tue 8 reset 40° to 60°C 
(-40° to 140F) 
# HUMIDITY 
MR se ses tan dns de lo ten tune nes 8% to 80% 
(non-ondensing) 29°C max wet bulb temperature 
Non-Opersting:.".."5#7i0 sud eee re 5% to 95% 
(non-condensing) 
# ALTITUDE 
Opera ae PUS TRE Ns doe 0 to 4,572m 
° (0 to 15,000 #) 
Non-Operating -.....:.:.................... -304 to 15,240m 


(-1000 to 50,000 ft) 


Power Requirements 

# BATTERY LIFE (6 voit lead acid cell battery) 

Continuous usage (100% duty cycle): 1.8 hours with recharger plugged in 
Continuous usage (100% duty cycle): 1 hour, without recharger plugged in 
Typical usage (5% duty cycle): No limit with recharger plugged in 

Sleep state (unit is powered on but not being accessed): 24 hours 


# RECHARGER 
Voltage (selected by rechargers). 
Frequency 
Nomindl:: 2.28 2 bits a es ae de sie ses rs 50-60 Hz 
Range uns 8 riens cluct fée dede 48-66 Hz 
Power Consumption (max) ............................. 6W 


Height Ha strate ee serres Re ru see 2e 75 mm (3.3 in) 
PUR ER En ds a La er db ADS 287.5 œum (11.5 in) 
Dep iii sors és ns sas s au 200 mm (8.0 in) 
= WEIGHT 

INR, scene ana farm, es RU S Detsbio ele dou eee 2.4 kg (5.4 lbs) 
SRIDPIRE 524 Laos cu e eve PR ésmalertee 5.61 kg (12.4 lbs) 


Safety and EMI Compliance 


Underwriters Laboratories, Inc. : 
UL 478: Electronic Data Processing Equipment (EMRT) Fifth Ed. 


UL 114: Office Appliances and Business Equipment (QAOT) 


Canadian Standards Association 
CSA C22.2 #154: Data Procéssing Equipment 


International Electrotechnical Commission: IEC 380 and 435 
FCC: Class B Part 15 for computing equipment 
VDE: Level B with a Level B SPU 


Questions concerning regulatory agency compliance should 
be directed to the local Hewlett-Packard Sales and Service Office. 


HEWLETT 
PACKARD 











SYSTEM CONFIGURATION 


ROM, Driver 
or System 
Required 
Requires Limit of 128K 
utility (see 


Operator s 
manual) for 

access to full 
630K data 


storage. 


* The PORTABLE and Portable PLUS can do direct data interchange with the Touchscreen Il 
and IBM PC and PCXT. 


Ordering Information 

Double-sided 3 1/2” Disc Drive .................. 9114B° 

Replacement Battery Pack ..................... 88014B 
* Be sure to order proper option for your power requirements. 


Accessories Supplied 
Operator's manual, one meter HP-IL cable, battery pack, battery 
recharger, one flexible disc. 


Accessories Available 


HP-IL Cables 

DD MERE 5 nn sr doi 520 sun su Gus etre deu 82167A 
l'Omeber RON ein des ace a à 0e ia 82167B 
SOMBRE nu RAR Lie LL Se rte a DES 82167D 


Warranty and Service 


The Hewlett-Packard data storage peripheral described in this 
data sheet is warranted against defects in materials and 
workmanship for à period of one year from date of purchase. 
For warranty service or repair, return this product with proof of 
purchase to a Hewlett-Packard Field Repair Center or an 
authorized dealer. Contact your local Hewlett-Packard sales 
office for the address of the Hewlett-Packard Repair Center or 
authorized dealer nearest you. A copy of the complete warranty 
statement is available upon request. 

HP offers complete service and maintenance worldwide. 
Maintenance agreements are available for all HP data storage 
products. Advantages of these agreements to the customer 
include à fixed annual cost, individualized cost-effective 
contracts, a choice of response time, and the option of either on- 
site or service center repair. Current US. rates can be 
determined by contacting your local HP Sales Office. 

The selection and use of media, supplies and consumables is 
the customer's responsibility. Hewlett-Packard reserves the right 
to exclude from this agreement any repairs for damage to HP 
products which HP reasonably determines or believes was 
caused by use of non-HP media. Hewlett-Packard will, upon 
request, repair such damage on a time and material basis. 


The information and specifications presented in this data 
sheet are subject to change without notice. 


For assistance call the HP regional office nearest you: Eastern 301,258 
2000, Midwest 312 255-9800, Southern 44955-1500, Western 213/506-3700, 
Canadian 416:678-9430. Or write to Hewlett-Packard, 700 71st Ave. 
Greeley, Colorado 80634; in Europe. Hewlett-Packard, S.A., P.O. Box, 
150, Route Du Nant D'Avri, CH-1217, MEYRIN 2 (Geneva) Switzerland; 
elsewhere in the world, Hewlett-Packard Intercontinental, 3495 Deer 
Creek Road, Palo Alto, California 34304. 


Printed in U.S.A. 5953-6862 
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LA DECOMPILATION FORTH 


Dans un précédent numéro de JPC (JPC No 
31) je décompilais certains mots FORTH du 
HP-71. 


On remarquait ainsi certaines étrangetés.. Ce 
mois-ci, je vous propose simplement le 
programme qui me permit cette 
décompilation. Pourquoi avoir attendu si 
longtemps pour faire paraître ce programme, 
qui est certainement plus intéressant que 
. l’article précité ? 


L’imperfection ! 
Comment oser faire paraître, dans JPC, un 
programme qui me semblait imparfait ? 


Mon problème était que certains mots du 71, 
sans être des primitives, ne pouvaient être 
décompilés. Et puis je me suis dit que 
décompiler les mots du module n'était pas 
forcément important depuis la parution des 
IDS FORTH. 


Le principe de décompilation est très 
simple : 

Un mot dans le dictionnaire qui a été 
compilé en commençant par “" contient les 
CFA des mots qu’il utilise. Connaissant le 
CFA d'un mot, il est facile d’avoir son NFA 
et de là, la chaîne qui le représente. Ajoutez 
à cela le traitement de quelques exceptions : 
chaînes, structures de contrôle (voir JPC 
No31).. et vous pourrez décompiler vos mots 
FORTH. 


Je me suis refusé à introduire (bien que ceci 
soit très simple) le traitement des BASICX et 


compagnie, trouvant tout ces mots trop 
grossiers (Mon Dieu ! Qu'il est snob !). 


Décompilez bien... 


Alain Herreman. 





HEX 
: NFA 
4 - 
BEGIN 
DUP Ca 80 AND 0= 
WHILE 2- 
REPEAT ; 
: 10. 
NFA COUNT 1F AND TYPE ; 
: LETTRE 
5+ DUP Ca 0 
DO 
2+ DUP Ca EMIT 
LOOP 
3 -; 
: DECOMP 
" DUP à E701A <> 
1F ABORT" Je ne peux pas." 
ELSE DUP NFA à 40 AND SWAP 5+ 
THEN 
BEGIN 
DUP à 
CASE 
E1C54 OF  5+ DUP à U. ENDOF ( Nombre ) 
E22ED OF  5+ DUP RCL F. B +  ENDOF 
( Nombre à virgule flottante ) 
ESD86 OF  DUP ." OBRANCH(“ 5+ @ 5 / DUP 
O< - . .M )" 5+  ENDOF 
E5D99 OF  DUP .# BRANCH(" 5+ à 5 / DUP 
O< - . .# 34 5+  ENDOF 
E1C6é7 OF  .“ DO"  ENDOF 


E3FF1 OF ."“ LOOP#“ 5+  ENDOF 
E601C OF ." DOES>" 7 +  ENDOF 
E3F81 OF ." +LOOP# 5+  ENDOF 


EOEFA OF  2E EMIT 22 EMIT BL EMIT 
LETTRE 22 EMIT  ENDOF 


E580E OF  ." ABORT" 22 EMIT BL EMIT 
LETTRE 22 EMIT  ENDOF 
DUP ID. 
ENDCASE 


S+ 20 EMIT KEY DROP DUP à E71E8 = 
UNTIL ." ;" DROP 
IF ."  IMMEDIATE" 
THEN ; 
DECIMAL 


NDLR : Pour utiliser DECOMP vous devez 
taper : 

DECOMP <le mot que vous voulez> 

par exemple : 

DECOMP SPACE 


Ensuite la pression d’une touche vous permet 
d'avancer de mot en mot. 
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HEXA COURT VITE 


Dieu créa les nombres entiers 
tout le reste est l’oeuvre de l’homme 


L. Kronecker 


Dans JPC No26, Olivier Arbey nous livrait le 
fruit de son labeur : PRIMLEX, bien utile 
pour les arithméticiens ou pour un usage 
scolaire. J'ai repensé Primlex et voici les 
résultats : 


nm mmmmmmmmmmmmmmmmmmmsmmmmmmmmmmmmmmmnne 


| Temps pour déterminer La primalité ou non | 
| d'un nombre N en fonction du nombre d'octets | 


I | 168 | 9 | 101 | 147 | 
Ï k | octets | octets | octets | octets | 
fee. V-tres kr frrseee 
| 10.Arbey | G.T | G.T | G.T | 
| 


| 82646281 | 28"55 | 12"84 | 8"62 | 5"9% | 
pére presses pee kr": Ét:- | 
| 9999999967 | 33673 | 16848 | 11278 | 77"82 | 
i | 5°36"7 | 2:48"5 | 1:52"8 | 11178 | 
prenne frrrèress Fe fEnseeee l'or | 
[999997993277] 3594" | 1939" | 1282" | 890" | 
| | 59156" | 32119" | 211220 | 14149" | 


mmnmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmme 


Les solutions les moins octivores, 94-101 
octets contre 148 octets, sont 2 et 3 fois plus 
rapides. La solution en 147 octets est entre 4 
et 4,8 fois plus rapide. Ces gains de rapidité 
et d’octets sont obtenus grâce à des routines 
en hexa et non en virgule flottante. 


Titan nous cache peut-être une routine de 
conversion décimal flottant -> hexa sans 
troncature des grands nombres. N'ayant pas 
les IDS de la ROM basic j'ai du créer cette 
routine en sacrifiant 26 octets. 


Ne voulant pas me contenter du seul mot 
PRIM j'ai réalisé DIVILEX, lex plus 
octivore (666 octets), pour les gens pressés et 
souvent confrontés avec les problèmes de 
divisibilité et de nombres premiers : 


0 


FPRM donne le premier nombre premier 
supérieur ou égal à un nombre donné. 


NPRM donne le nombre de nombres 
premiers compris entre 2 nombres. 


PRIM est encore plus rapide et comporte une 
option qui me semble indispensable : la 
possibilité d’interrompre l'exécution de 
PRIM mais de savoir jusqu'où les tests de 
divisibilité ont été poussés. 


On peut ainsi s'assurer instantanément qu’un 
nombre n’a pas de diviseurs inférieurs à 223. 
D'autre part PRIM détecte d’abord si N est 
un carré parfait et dans ce cas le test de 
primalité est ultra rapide. Au point de vue 
rapidité j'ai recherché un compromis pour 
les 3 mots. 


PHI fonction ou indicateur d’Euler donne le 
nombre de nombres relativement premiers et 
inférieurs ou égaux a un nombre donné. 


PGCD et PPCM complètent la panoplie. 
Enfin un petit fichier basic fournit 6 sous- 
programmes d'utilité ou de futilité. 


MODE D'EMPLOI 
et exemples avec DIVILEX 


PRIM : premier diviseur de n 


syntaxe : PRIM (n) 
avec 0 < n < 10*12 


PRIM (-6) 

-> invalid arg 
PRIM (82646281) 

-> 9091 en 0"18/100 ! 

(82646281 = 9091*9091 = carré parfait) 
PRIM (9999999967) 

-> 9999999967 en 1'8" N premier 
PRIM (999997993277) 

-> 999917 en 12°56" 

(999997993277 = 999917*1000081) 


OPTION interruption : appui sur une touche 
noire sauf [ON] donne l'affichage de moins 
(m*210+221) si les test de divisibilité ont été 
négatifs jusqu’au moment de l’interruption. 

IMPORTANT : pas de "DELAY" ultra rapide 
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PRIM (9999999967) et appui sur une touche 
noire 
-> -421 en 0"53/100 : pas de divis. <= 421 


FPRM : premier nombre premier dans un 
intervalle 


syntaxe : FPRM (ni, n2) 
avec 5 < nl <= n2 < 1012 
ou n2 = 0 si limite supérieure indéterminée 


FPRM (2,20) 

-> invalid arg 
FPRM (300,350) 

-> 307 premier nombre premier > 300 
FPRM (82646281 ,0) 

-> 82646303 en 15"24 

(n2 indéterminé, Titan pose n2=10"12) 
FPRM (300,306) 

-> 0 pas de nombre premier de 300 à 306 
FPRM (999999999900,0) 

-> 999999999937 en 12°56" 


NPRM : nombre de nombres premiers dans 
un intervalle 


syntaxe : NPRM (ni, n2) 
avec 5 < nl <= n2 < 1012 


NPRM (6,10) 

-> 1 

NPRM (82646281, 82646350) 
-> 5 

NPRM (10, 10000) 

-> 1225 en 1’30" 


PGCD : plus grand commun dénominateur 


syntaxe : PGCD (nl, n2) 
avec [ni] < 10*12 et [n2] < 10*12 


PGCD (385,210) 

-> 35 

PGCD de plusieurs nombres ni, n2, n3 etc. 
PGCD (nl, PGCD (n2, PGCD (n3, ….))) 
PGCD (385, PGCD (210,715)) 

-> 5 PGCD de 385, 210, 715 


PPCM : plus petit commun multiple 


syntaxe : PPCM (n1, n2) 
avec [nl] < 1012 et In2] < 1012 


PPCM (385,210) 
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-> 2310 

PPCM de plusieurs nombres n1, n2, n3 etc. 
PPCM (n1, PPCM (n2 , PPCM (n3, ….))) 
PPCM (210, PPCM(385,715)) 

-> 30030 


PHI : nombres de nombres relativement 
premiers avec n. 


Syntaxe : PHI (n) 
avec n # 0 et |n] < 10*12 


PHI (1) 
-> 1] 
PHI (251) 
-> 250 
PHI (999) 
-> 648 


Le fichier basic 
LISTPRIM 


CALL LPRIM (nl, n2) 

-> liste des nombres premiers compris entre 

nl et n2, avec nl > 5 et n2 >5 

CALL LPRIM (300, 320) 

-> 307 311 313 317 
CALL LPRIM (82646281, 82646350) 

-> 82646303 82646321 82646323 82646327 
82646339 


CALL DECOMP (n) 

-> décomposition d’un nombre en ses 
facteurs premiers 

CALL DECOMP (99999999927) 

-> 373 59 62774639 


CALL REDUC (n,d) 

-> réduction d’une fraction 

CALL REDUC(999999999927,999999999999) 
-> 111111111103 / 111111111111 


CALL EQUZ (a, b, c) 

-> solution dans Z de 
indéterminée ax + by = C 
CALL EQUZ (10, -7, 97) 

->X=9+7*K 

Y=-1+10*K 
solution de 10x - 7y = 97 dans Z 


l'équation 





CALL JUM (n) LEX  ‘PRIMLEX2' 


-> liste des nombres premiers jumeaux à 1D #E1 
partir de n,avecn>5 MSG O0 
CALL JUM (6) POLL O0 

-> 11 13 POPIN EQU  #0BD1C 

-> 17 19 HDFLT EQU  #1B31B 

-> 29 31 FNRTN1 EQU  #0F216 

-> 41 43 etc. RJUST EQU  #12AE2 

IDIV EQU  #0EC7B 
ENTRY PRM 
CALL QUAD (n) CHAR #F 

-> liste des quadruplets de nombres KEY 1PRIM' 
premiers, avec n > 5 TOKEN 87 
CALL QUAD (6) ENDTXT 

-> 11 13 17 19 NIBHEX 811 

-> 101 103 107 109 etc PRM  GOSBVL POPIN 

R2=A 
GOSBVL RJUST 
Les sorties sur imprimante peuvent se SETHEX 
programmer facilement. C=0 WW 
B=0 W 
Ainsi DIVILEX permet d’avoir en B=B+1 P 
permanence une table étendue de nombres GONC LO 
premiers et de diviseurs, et de vérifier HI C=C+B WP 
numériquement des résultats théoriques en LO A=A-1 P 
général avec plus de facilité qu'avec une GONC HI 
table. B=B+B WP 
AB WP 
Aux disciples de Fermat je souhaite de B=B+B WP 
bonnes recherches et beaucoup de trouvailles. B=B+B WP 
B=B+A WP 
P=P+1 
GONC  LO 
Guy TOUBLANC (P276) RO=C 
sB=0 
CSRB 
c=0 NW 
NDLR : Toutes nos excuses à Olivier Arbey, ?SB=0 
mais il comprendra sans doute que devant la GOYES LOOP 
qualité du travail exposé ici, nous avons C=C+1 B 
désalloué le token attribué à sa version de LOOP  P= 1 
PRIM. C+P+1 
Par ailleurs, nous n’avons pas retrouvé le lex R1=C 
correspondant à la version de 101 octets. A=RO 
Toutes nos humbles excuses à l’Auteur. GOSBVL IDIV 
?8-0 A 
GOYES RESUD 
C=R1 
La version de Primlex de 94 octets : ?C<A 
GOYES  LOOP 
C=R2 
GONC OUT 
RESUD A=R1 
GOSBVL HDFLT 
C=A 
OUT  GOVLNG FNRTN1 
END 


JPC 35 Page 23 


0 


La version de Primlex de 147 octets 


POP1N 
HDFLT 
FNRTN1 
SPLITA 
RJUST 
=SQR15 


PRM 


LOOP 


TESTÉ 
TEST4 
TEST2 


HI2 


JPC 


LEX *PRIMLEX3! 


1D #1 
MSG 0 

POLL 0 

EQU #0BD1C 
EQU #18318 
EQU #0F216 
EQU #OC6BF 
EQU #12AE2 
EQU #0C534 
ENTRY PRM 
CHAR _#F 

KEY "PRIM! 
TOKEN 87 
ENDTXT 

NIBHEX 811 
GOSBVL POP1N 
R2=A 


GOSBVL SPLITA 
GOSBVL =SQR15 
A=B M 
GOSUB FLTAHC 
D=C W 
A=R2 

GOSUB  FLTAHC 
RO=C 

C= W 

P= 1 
GOSUB TEST2 
P= 0 
GOSUB TEST2 
GOSUB TEST2 
GOSUB TEST2 
GOSUB TEST4 
GOSUB TEST2 
GOSUB TEST4 
GOSUB TEST2 
GOSUB TEST4 
GOSUB TEST6 
GOSUB TEST2 
GOSUB TESTé 
?2CD A 
GOYES LOOP 
C=R2 

GONC OUT 
C+P+1 

C+P+1 

C+P+1 

B=C W 
A=R0O 
P= 
?B>A VW 
GOYES LO2 
BSL w 
P=P+1 


o 
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LO2 


LO3 


OUT 
FLTAHC 


HI 
LO 


?A#0 
RTNYES 
A=C 
C=RSTK 
GOSBVL 
C=A 
GOVLNG 
GOSBVL 
SETHEX 
=0 
B=0 
B=B+1 
GOTO 
C=C+B 
A=A-1 
GONC 
B=B+8 
A=B 
B=B+B 
B=B+B 
B=8+A 
P=P+1 
GONC 
RTN 
END 


HI2 


LO2 


LO3 


LO2 


HDFLT 
W 
FNRTN1 
RJUST 


556595 ="$57rce 


Et LE Lex DIVILEX 


t 
POP1N 
POP2N 
HXDCW 
FLDAT 
FNRTN1 
MPY 
RJUST 
ARGERR 
SPLITA 
=SaR15 
IDIV 


LEX 
ID 
MSG 
POLL 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


"DIVILEX" 
#E1 

0 

0 


82 
#08D1C 
#0BC8C 
#0ECB4 
#18322 }) voir JPC 
#0F216 ) précédents 


St dt 


#0ECBB ) 
#I2AE2  ) 
#0BF19  ) 
#OC6BF 


#0C534 racine carrée/15 digits 
#OEC7B A(W)/C(W) en hexa 





ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 


KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 


ENDTXT 


NIBHEX 
PH GOSBVL 
RO=A 
GOSUB 
GOSUB 
GOSUB 
RO=C 
R2=C 
A=0 
AsA+1 
?A#C 
GOYES 
GOTO 
GOSUB 
R3=A 
R1=C 
GOSBVL 
RO=A 
C=R1 
C=Cc-1 
A=R2 
GOSBVL 
C=R1 
GOSBVL 
R2=A 
A=R3 
C=R1 
?A=C 
GOYES 
A=RO 


PHIHI 


oo 


FPR 
#F 
NPR 
#F 
PGD 
#F 
PH 
#F 
PPM 
#F 
PRM 
#F 


"FPRM' 
t 
NPRM' 
1+t 
*PGCD' 
ètt 
‘PHI! 
3+t 
sPPCM' 
ét 
‘PRIM' 
S+t 


811 
POP1N 


LIMIT 


LIMP 
FLTAHC 


PHIHI 
RESU 
GTEST 


IDIV 


MPY 


IDIV 


v 
ENDPHI 


AW=n 

sauve n 

C(W) = 10*12 
test n < 1012 
C(W) = n en hexa 
) sauven 

) 


AG) = 1 

n#17? 

oui on continue 

non : affichage 1 
dizier diviseur de n ou Qi 
sauve n ou Qi 

sauve di 

AW) = Qi+1 

Qi+1 remplace Qi 

C(W) = di 

cçW) = di - 1 

ACW)=n ou PHIi 

Pi = (n ou PHIi)*(di - 1) 
C(W) = di 

ACW) = PHli+1 = Pi / di 
sauve PHIi+1 

ACW) = Qi 

CcW) = di 

Qi = di ? 

oui alors résultat 
AC) = Qi+1 


PHILO 


ENDPHI 


PPM 


LIMIT2 


LIMP 


LIMIT 


POP 
ERR 


PGD 


PGC 


?A=C 
GOYES 
GOSBVL 
?B#0 
GOYES 
RO=A 
C=R1 
GOTO 
C=R2 
GOTO 


NIBHEX 
GOSUB 
GOSUB 
A=R3 
GOSBVL 
RO=A 
P= 

C=0 
LCHEX 
A=C 
CER& 
GOSBVL 
C=RO 
?C>A 
GOYES 
A=R& 
GOSBVL 
GOTO 
GOSBVL 
D1=D1+ 
R2=C 
RO=A 
GOSUB 
?A>=C 
GOYES 
A=R2 
?A>=C 
GOYES 
A=RO 
ST=1 
RTN 
C=0 

P= 

C=P 

P= 
LCHEX 
RTN 
C=RSTK 
GOVLNG 


NIBHEX 
GOSUB 
GOSUB 
GOTO 
=R2 
?C#0 
GOYES 


W 
ENDPHI 
IDIV 
W 
PHIHI 


PHILO 


RESU 


8822 


LIMIT2 


PGC 


IDIV 


0 
ÿ 


( Qi+1 ou Qi+k ) = di ? 

oui alors résultat 

Qi+1 / di ou Qi+1+k / di”k 
reste # 0 ? 

oui recherche diviseur # di 
Qi+1+k remplace Qi+k 

C(W) = di 

nouveau test divisib. / di 
C(W) = PHI(n) 
convers/expression/basic 


validite n1,n2 
pgcd(n1,n2) 

A(W) = n1 

ACW) = n1/pgcd(ni,n2) 
sauve e 


#EBDAASOFFF C(W) = (10*12)-1 


y 


IDIV 


MPY 
RESU 
POP2N 
16 


LIMIT 


_" 


14 


12 


ARGERR 


8822 
LIMIT2 
PGC 
RESU 


W 
DIFO 


A(W) = e 

C(W) = n2 

AW) = (( 102) -1)/n2 
C(W) = n1 / pgcd( n1,n2 ) 
ni/pgcd(ni,n2)>10"12-1/n2 ? 
oui alors invalid arg 

ACW) = n2 

ni*n2 en hexa = ppcm(n1,n2) 
convers./expression/basic 
ACW) = n1 , C(W) = n2 
ectualise D1 

sauve n2 en décimal flott. 
sauve ni " 

C(W) = 10*12 

ni >= 1012 ? 

oui alors invalid arg 

A(W) = n2 

n2 >= 1012? 

oui alors invalid arg 

A(W) = ni 

sortie non anticipée 


CCW) = 1012 


pop Le gosub 
paramètres non valables 


test validite n1,n2 
pacd(n1,n2) 
conversion/expression/basic 
C(W) = n2 

m#07?7 

oui alors on continue 
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ACEX W 
R2=C 
DIFO GOSUB FLTAHC 
RO=C 
R3=C 
A= 
GOSUB FLTAHC 
R1=C 
Ré=C 
A=RO 
EUCLID GOSBVL IDIV 
?28=0 W 
GOYES PGCD 
A=R1 
C=B W 
R1=C 
GONC  EUCLID 
PGCD C=R1 
RTN 
NIBHEX 8822 
FPR GOSUB LIMIT2 
C=R2 
2C#0 WW 
GOYES NNULL 
GOSUB LIMIT 
Rè=C 
NNULL GOSUB LIMVAL 
C=RO 
LOOP2 A=R2 
?7C>A VW 
GOYES RESUO 
GOSUB FTEST 
?A=C VW 
GOYES RESUF 
C=RO 
C+P+1 
RO=C 
GONC  LOOP2 
RESUO C=0 L] 
GOTO OUT 
RESUF C=RO 
GOTO RESU 
LIMVAL GOSUB FLTAHC 
A=C W 
C=C+1 W 
SB=0 
CSRB 
?2SB=0 
GOYES AI 
=A+1 4 
AI RO=A 
A=R2 
GOSUB FLTAHC 
R2=C 
C= W 
R3=C 
P= 0 
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permite n1 et n2 
sauve n2 

C(W) = n1 en hexa 

) sauve n1 

) 

A(W) = n2 

C(W) = n2 en hexa 

) sauve n2 

) 

ACW) = n1 en hexa 
n1/n2 en hexa 
MOD(n1,n2) = 0 ? 

oui alors pgcd obtenu 
ACW) = Rn-1 

C(W) = Rn-2 

sauve Rn-2 

cacul de Rn 
C(W)=Rn-2=pgcd(n1,n2) 


test n1,n2 

C(W) = n2 

m#07? 

n2 détermine 

C(W) = 10"12 

R2 = n2 = 1012 
convers.n1,n2 et validite 
sauve n = n1 ou n1+1 

A(W) = n2 

n>nm? 

oui alors pas de n premier 
er diviseur den 

n = diviseur ? 

oui alors n premier 

non alors C(W)=n 

n + 2 (increment.) 

sauve n suivant 

tests continuent 

) Limite atteinte 

) aucun n premier -> basic 
) n premier trouve 

) convers/expression/basic 
C(W) = n1 en hexa 

A(W) = n1 

ni+1 


(n1+1)/2 

(n1+1) pair ? 

oui alors n1 impair 

non alors ni devient impair 
sauve n = n1 ou ni+1 

ACW) = n2 

C(W) = n2 en hexa 

sauve n2 

) initialise Le compteur 

) de nombres premiers 


NPR 


LOOP1 


CONTN2 
N2 


RLOOP 


INCR 


RESUN 


PRM 


A=RO 

LCHEX 5 
?CA W 
RTNYES 
GOTO pop 


NIBHEX 8822 
GOSUB LIMIT2 
GOSUB LIMVAL 
LCHEX 6 

Ré=C 

GOSBVL IDIV 
=B B 

D=C B 

C=R4 

GOSBVL MPY 

C=C-1 

P= 

D=D-1 8 

?0=0 8 
GOYES N2 
C+P+1 

C+P+1 

C+P+1 

RO=C 

A=R2 

?2CA W 
GOYES RESUN 
GOSUB  NTEST 
2A#C VW 
GOYES  CONTN2 
GOSUB  INCR 
C=RO 

C+P+1 

RO=C 

A=R2 

?2C>A W 
GOYES RESUN 
GOSUB NTEST 
?A#C VW 
GOYES  RLOOP 
GOSUB INCR 
C=RO 
GOTO 
C=R3 
C=C+1 W 
R3=C 
RTN 
C=R3 
GOTO 


_<c 


LOOP1 


RESU 


NIBHEX 811 
GOSBVL POPIN 
RO=A 
GOSUB 
GOSUB LIMP 
GOSUB FLTAHC 
D=C W 


LIMIT 


AW)z=n 

C(W) = 5 

5<n? 

oui alors on continue 
non : invalid arg 


test validite n1,n2 
convers.n1,n2 et validité 
C(W) = 6 

sauve 6 

ACW)=INT(n/6) B(W)=MOD(n,6) 
relai 

D(B) = MOD(n,6) 

C(W) = 6 

INT(n/6)*6 

INT(n/6)*6-1 
initialisation 


MOD(n,6)z1 ? 
oui alors début à N2 
INT(n/6)*6+1 


n +4 (n suivant) 
sauve n 
AW) = n2 
n>n7? 
limite atteinte->résultat 
non alors cherche n premier 
n # diviseur ? 
oui alors n suivant 
non alors compteur + 1 
C(W) = n ancien 
n +2 (n suivant) 
sauve n nouveau 
A(W) = n2 
n>nm7? 
oui alors Limite atteinte 
non alors cherche n premier 
n # diviseur ? 
oui alors n suivant 
compteur + 1 
C(Wa=n 
nouveaux tests 
valeur compteur 
compteur + 1 
sauve nouvelle valeur 


valeur compteur 
conversion -> basic 


A(W) = n à tester 

sauve n en déc. flottant 
C(W) = 1012 

n < 1012? 

C(W) = n en hexa 

D(W) = n en hexa 





LTEST 


GTEST 


FTEST 


NTEST 


LOOP 


A=RO 


GOSBVL SPLITA 


GOSBVL 
A=B 
GOSUB 
RO=C 
A=RO 
GOSBVL 
?C=D 
GOYES 
C=D 
RO=C 
ST=0 
GOSUB 
GOTO 
C=0 
P= 
GOSUB 
C=0 
P= 
GOSUB 
C=0 
P= 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


=SQR15 
M 
FLTARC 


MPY 
y 
LTEST 


ACW)=n en décimal flottant 
n dans A/B 
R = racine carrée dans A/B 


ACW)= R en décimal flottant 


C(W) = R en hexa 

sauve La racine R 

AC) =R 

R*%R enhexa 

n carré parfait ? 

oui alors test primalité 
) non slors n remplace R 
) 

sortie anticipée possible 
test n ou R premier 

-> affichage diviseur oun 
initialisation diviseur 


divisibilité/2 
départ tests pour FPRM( , ) 


divisib/3 
départ tests pour NPRMC , ) 


divisib/5 

divisib/7 

divisib/11 

divisib/13 ou m*210+13 

divisib/17 ou m*210+17 

divisib/19 ou m*210+19 
etc... 


TEST 


RESUP 
TEST10 
TEST8 
TESTé 


TEST4 
TEST2 


HI2 


LO2 


LO3 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
A=IN 
2A#0 
RTNYES 
A=R0O 
P= 
C+P+1 
R1=C 
GOSBVL 
C=R1 
P= 
?B#0 
GOYES 
GOTO 
?7C>A 
GOYES 
GOTO 
C=RO 
GOTO 
C+P+1 
C+P+1 
C+P+1 
C+P+1 
C+P+1 
R1=C 
A=RO 
P= 
?C>=A 
GOYES 
CSL 
PsP+1 
GONC 
A=A-C 
GONC 
A=A+C 
P=P-1 
GoC 
CSR 
GONC 
CER1 
P= 
?2A#0 
RTNYES 
C=RSTK 


TEST2 
TESTé 
TESTé 
TEST4 
TEST2 
TEST4 
TESTé 
TEST2 
TESTé 
TEST4 
TEST2 
TEST4 
TEST2 
TEST10 
TEST2 


Le 


IDIV 
1 
A 
TEST 
RTNP 


RESUP 
LOOP 


RTNP 


LO2 


HI2 


LO2 


LO3 


LO2 


1 
W 





divisib/211 ou m*210+211 

) y a-t-il eu appui de tou- 
) ches pour interruption ? 
oui alors résultat et arrêt 
non alors A(W=n 


C(W)=d=221 ou m*210+221 
sauve d 

INT(n/d) et MOD(n,d) 

C(W) = d 

pour autre test de divisib. 
MOD(n,d) # 0 ? 

oui alors test fin boucle 
non alors résultat diviseur 
diviseur > INT(n/d) ? 

oui alors n premier 

non alors suite tests 
C(W) = n premier 

vers retour 

niveau d+10 

niveau d+8 

niveau d+6 

niveau d+& 

niveau d+2 

sauve d 

A(W)z=n 

debut calcul MOD(n,d) 

( routine HP IDIVA 

moins calcul du quotient 
donc plus rapide ) 


MOD(n,d) # 0 ? 
oui : n non divisible 
d divise n -> pop Le gosub 
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C=R1 C(W) = d 

RTNP ST=1 0 sortie non anticipée 
A=R0O A(W)=n (comparaison avec d) 
RTN 


FLTAHC GOSBVL RJUST AlW)déci.flot.->A(W)décimal 
SETHEX { partie routine HP FLTDH 


C=0 ÿW mais calculant avec A(W) 
B=0 W et non A(A) ce qui est 
B=B+1 P insuffisant avec 12 
GONC  LO chiffres décimaux entrés ) 
HI C=C+B WP 
LO A=A-1 P 
GONC HI 
B=B+B WP 
A=B WP 
B=B+B WP 
B=B+B WP 
B=B+A WP 
P=P+1 
GONC  LO 
RTN 
CONV  GOSBVL HXDCW ) conversion 
A=C W ) C(W) hexa 
GOSBVL FLDAT > 
C=A W ) C(W) décimal flottant 
2ST=1 0 sortie non anticipée ? 
RTNYES oui alors résultat normal 
C=C-1 S résultat négatif 
RTN ( sortie anticipée ) 


hexa -> décimal flottant 
résultat/retour a basic 


RESU  GOSUB CONV 
OUT GOVLNG FNRTN1 


END 
Voila, c’est fini ! 


nnnnnmmmmmmmmmmmmmm mm mm mm mm mm mm mmmmmmmmmmmmm 


NOUVEAU REPLACES$ 


La nouvelle fonction RPLC$ permet de 
remplacer dans la chaîne S$ une sous-chaîne 
O$ par une chaîne R$. Ainsi : 

RPLCS ("123123 ,m2u un) 

Donne "1*31*3n, 


De "\" et "&" 
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Mais la nouvelle fonction RPLCS$ a encore 
bien d’autres utilisations. On peut, par 
exemple, décider d’accoler à tous les "2" de 
la chaîne précédente, une étoile "*" ; il suffit 
de faire : 

RPLCS ("1231234 ,M2u ,u\gæu) 

La chaîne renvoyée est : 

12*312*3 

Ou encore de faire la même chose, mais à la 
gauche des "2" rencontrés : 

RPLCS("123123n,n2u u\xgn) 

On obtient : 

n1*+231*23n 

Ou même à la fois à droite et à gauche : 
RPLCS("1231230 ,u2u u\gæn) 

Il vient : 

MAx2*31*2*30 


Vous remarquerez que le "&" peut-être placé 
immédiatement ou non après le "\" ; qu'il n’a 
aucune action particulière s’il est placé 
avant; que deux "\" qui se suivent 
immédiatement sont considérés comme un 
seul, et que cet unique “\" n’a alors aucune 
action particulière ; que deux “\" qui sont 
situés à plus d’un caractère de distance, et 
qui n'enferment pas un "&", ne sont pas pris 
en compte ; qu’enfin il n’est jamais pris en 
compte qu’un seul "&" à la fois. 


De re "@", "$" et "AN 


Le groupe “\*\” sera utilisé pour une 
recherche en début de chaîne. 

Le groupe "\$\" sera utilisé pour une 
recherche en fin de chaîne. 

Le groupe "\.\" représente n’importe quel 
caractère. - 

Le groupe "“\@\" représente un nombre 
arbitraire de caractères. 


Exemples : 


Remplaçons, au début de la chaîne "123123" 
tout "2", précédé d’un caractère quelconque, 
et suivi d’un nombre quelconque de 
caractères , puis d’un "l", par deux étoiles 
“**" I] suffit de faire : 
RPLCS(1231230,M\.\2\9\10 ntm) 

Ou plus simplement : 
RPLCS("123123",M\,2910 ,m#æu) 


Ce qui donne aussi : 
urxDzu 


Remarquons à ce propos que c’est toujours la 
plus longue occurence qui est trouvée. 


Notes 


La routine de recherche a (sans doute) été 
écrite par FH ou SW ; la routine de 
remplacement est de JJM. 

Toute suggestion visant à améliorer Ja 
puissance de la fonction RPLCS sera la 
bienvenue, si tant est que les modifications à 
apporter au code déjà écrit ne soient ni trop 
importantes, ni trop complexes, faute de 
quoi je ne pourrais que m'’engager à vous 
expliquer comment réaliser lesdites 
modifications, en vous expliquant, si besoin 
est, les secrets de mon LEX (qui est en 
définitive fort simple). 


Avertissement 


Il est inévitable que, dans un LEX d'aussi 
grande taille, existent des effets indésirables, 
quelque püût être le soin que nous prîimes à 
les éliminer. C'est pourquoi nous vous 
demandons de bien vouloir nous reporter, à 
P. Guez, à J-J Dhénin ou à moimême, tout 
comportement insolite et non conforme aux 
conventions énoncées ci-dessus. On y 
remédiera sous quinzaine. 


Jean-Jacques MOREAU 
64 ave de la paix 
93150 Le Blanc-Mesnil 
(1) 48-67-33-04 


(P. Guez (1) 45-06-25-03) 
(3-J D. (1) 43-36-12-05) 


LEX "RPLCLEX! 


1D #E1 

MSG 0 

POLL 0 

ENTRY REPL 
CHAR  #F 

KEY "RPLCS' 
TOKEN 80 


=ARGERR EQU  #0BF19 
SREV$S  EQU  #1B38E 
RegExp EQU O0 


Toplvl EQU 
æLEEWAY EQU 
=CHKmem EQU 
Match  EQU 
Anchor EQU 
ÆMEMERR EQU 
=EXPR  EQU 
=OUTBS EQU 
ÆADHEAD EQU 
=MOVEUM EQU 
Æ=MOVEDM EQU 
=OBCOLL EQU 
=CSLWS EQU 
Æ=AVMEMS EQU 
=FUNCD1 EQU 
=zFUNCRO EQU 
ÆæREVPOP EQU 
æ=FLTDH EQU 
æPOPIR EQU 
First  EQU 
Close EQU 
Ins EQU 
BackS  EQU 
æDO=AVS EQU 
Æ=MOVE*M EQU 
=HXDCW EQU 


ENDTXT 


7 
#000D4 
#01207 
9 

11 
#0944D 
#0F23C 
#2F58F 
#18187 
#1815C 
#1BOEE 
#01435 
#0ED3D 
#2F594 
#2F8C0 
#2F89B 
#0BD31 
#18223 
#0E8FD 


* Remplace dans S$, O$ par R$ 


* RS=RIS[&'\&' [&R2S]] 


* OUTES : Début de R1$ 
* FUNCRO+25 : Fin de R1$ - Début de R2$ 
* FUNCRO : Fin de R2$ - Début de OS 
* AVMEMS : Fin de 0$ 
* FUNCRO+5 : Début de S$ 
* FUNCRO+30 : Pointeur actif 
* FUNCRO+20 : Fin de S$ 
NIBHEX 8444 
NIBHEX 34 
REPL  CDOEX Sauvegarde DO 
DO=(5) =FUNCD1 
DATO=C A 
P=C 15 La valeur par défaut du 
?P= 3 4ème paramètre est zéro 
GOYES REP04 
GOSBVL =POPIR 
D1=D1+ 16 
GOSBVL =FLTDH 
A=A-1 A -> Option Base 0 
GONC REPOS 
REPO4 A=0 A Considère 0 comme 1 
REPOS CLRST 
P= 0 
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REP10 


REP15 


REP20 


REP22 


REP30 


REP35 


REP40 


REP50 
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DO=(5) (=FUNCRO)+15 


DATO=A 
A=A-1 
Goc 
ST=1 


GOSBVL 
CD1EX 
D1=C 
C=C+A 
D=C 
GOSBVL 
D0=(5) 
DATO=A 
DO=A 
CD1EX 
D1=C 
?C>=D 
GOYES 
A=DAT1 
D1=D1+ 
LCASC 
?A=C 
GOYES 
LCASC 
?A=C 
GOYES 
DATO=A 
DO=D0+ 
ST=0 


?ST=1 
GOYES 
ST=1 
ST=1 


ST=0 
?ST=1 
GOYES 


?ST=0 
GOYES 
?ST=1 
GOYES 
ST=0 
ST=1 
ADOEX 
GOTO 


A 
A 
REP10 
First 


SREVPOP 


A 


A 
=DO=AVS 


Analyse R$ 


D1 à début de R$ 


DCA) à fin de R$ 
ACA)=AVMEMS 


(=FUNCRO)+25 


A 


A 
REP100 


REP20 


BackS 
REP40 
BackS 
Close 
REP20 


BackS 
Close 
REP22 
REP35 


BackS 
REP22 
Ins 
REP22 
BackS 
Ins 


REP15 


R1$=11 - R2$=RS 


Fin de R$? 
Oui; analyse terminée 
Lit un charactère 


Est-ce 1 '\!? 
Oui 


Est-ce 1 '&'? 
Oui 
Stocke ce caractére 


Si L'on est arrivé ici, 
c'est que 2 '\' ne se 
suivent pas 

(B.E.T.) 


Déjà 1 ‘\! de trouvé? 
Oui 

C'est Le Îer 

Peut-être y-en-a-t-il 2 
(B.E.T.) côte-à-côte 


Alors on sort du mode !\! 
A-t-on trouvé !\\1? 

Oui; on en garde 1 seul 
(B.E.T.) Non 


Hors mode !\!? 

Oui; '&!' n'a aucune action 
1\&' déjà trouvé? 

Oui; alors rien à faire 
Sort du mode !\! 

Indique '\&! trouvé 

On a trouvé La fin de R1$ 


REP100 


alors 


REP102 


REPNOM 


REP110 


ADOEX 
DO=(5) 
DATO=A 
?ST=1 
GOYES 
DO=(5) 


DATO=A 
GOSBVL 
SA 
CD1EX 
A=A+C 
RO=A 
A=DATO 
ACEX 
GOSBVL 
R1=C 
DO=(5) 
C=C+8 
DATO=C 
C=8 
R3=C 


DO=(5) 
C=R1 
DATO=C 
D1=C 
A=R3 
C=C+A 
R2=C 
DO=C 
?A=0 
GOYES 
DO=D0- 
A=DATO 
LCASC 
?A#C 
GOYES 
DO=D0- 
ADIEX 
D1=A 
CDOEX 
?A<C 
GOYES 
A=RO 
D1=A 
D0=(5) 
A=DATO 
DO=A 
GOVLNG 


DO=C 
A=DATO 
LCASC 
?A=C 
GOYES 
C=R2 
C=C-1 


On a trouvé La fin de R2$ 
=AVMEMS 
A 
Ins 
REP102 
(=FUNCRO)+25 Si POS(RS, '\&')=0 


A RIS=RS - R2='! 
=REVPOP Analyse 0$ 
A 


=MOVE*M Déplace O$ derrière R2$ 


SAVMEMS Actualise AVMEMS 


zFUNCRO Début de 0$ -> 


Analyse O$ - On ne peut 
avoir LEN(O$)=0 ou 0$=!\! 
A Cf IDS 1 


A 
REPNOM 
2 

B 

“\t 

B 
REP120 
2 


A 
REP110 


=FUNCD1 
A 


=EXPR 


“\t 
B 
REP120 


A 





C=C-1 A 
R2=C 


REP120 D0=(5) =AVMEMS 


A=R2 
DATO=A A 
C=0 A 
LC(2) 21 
A=A+C À 
AROEX 
D1=A 


Actualise si 0$=01$&'\! 


Calcule (AVMEMS)+21 pr SCAN 


GOSBVL =REVPOP Etudie enfin S$ 
D0O=(5) (=FUNCRO)+5 Début de S$ 


CD1EX 
D1=C 
DATO=C A 
DO=D0+ 15 
A=A+C A 
DATO=A A 
D0=D0- 5 
A=DATO A 
ST=0 Anchor 
DO=D0+ 15 
C=C+A À 
Goc REPIVA 
C=C+A A 
DATO=C A 
GONC  REP500 
REPIVA GOVLNG =ARGERR 


Boucle principale 


+ + + + # + 


REP500 D0=(5) =FUNCRO 
A=DATO A 
=A A 


Fin de S$ 


Début de La recherche 


(Ne devrait pas arriver) 


Remplace 0$ ds S$ par R$=RISE&R2S 


B(A)= début du motif (0$) 


DO=(2) CFUNCRO)+20 


A=DATO A 

R3=A 

DO=D0+ 10 
C=DATO A 

D=C A 
?C>=A A 
GOYES REP540 
?ST=1 Anchor 


GOYES REP540 
* 


R3= fin de La cible (S$) 


D(A)= début de La cible 
Remplacement terminé? 
Oui 

Un remplacement en 
debut de ligne ne se 
fait qu'une fois 


DO=(2) (=FUNCRO)+5 


A=DATO A 
D1=A 
D0=(5) =AVMEMS 


0 


D1 a mémoire Libre 


REP540 


REP550 


REP600 


A=DATO A 

R2=A R2 = fin du motif 
GOSUB SCAN Recherche du motif 
GONC REP550 Trouvé 

GOSBVL =OBCOLL 

D= A DCA)=AVMEMS 

DO=(5) (=FUNCRO)+20 

C=DATO A 

R1=C R1 à fin de S$ 

DO=D0- 15 

C=DATO A 

D1=C D1 à début de S$ 

ST=1 0 Revient ici après ADHEAD 
GOSBVL =ADHEAD Ajoute Un en-tête à S$ 
GOSBVL =REVS$ L'inverse 

DO=(5) =FUNCD1 

A=DATO A 

DO=A Remets DO en place 
GOVLNG =EXPR Retourne S$ 

?ST=1 Ins Si L'on insère, il ne faut 
GOYES REP600 pas détruire Le motif 
C=D A 

B=C A 

DO=(5) (=FUNCRO)+5 

A=DATO A 

B=B-A À 

C=R1 

C=C-D A 

A=A+C A 

DATO=A A Actualise le pt actif 
C=D A 

A=R1 

ACEX À 

D= A 

ACEX À 


GOSBVL =MOVEDM Ecrase Le motif 


DO=(5) =OUTBS 
A=DATO A 
DO=(5) (=FUNCRO)+25 
C=DATO A 
GOSUB RPEDIT 
C=R1 

D=C A 
DO=(5) (FUNCRO)+30 
DATO=C A 
DO=D0- 5 
A=DATO À 
D0=(5) =FUNCRO 
C=DATO A 

GOSUB RPEDIT 
GOTO REP500 


Insère R1$ 


Insère R2$ 
Boucle 
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ACA)=Début 


+ + # + + 


RPEDIT R2=A 
R3=C 
C=C-A 

Memckl B=C 
C=B 
A=C 
c=0 
LC(2) 
C=A+C 
Goc 
D1=(5) 
A=DAT1 
GOSBVL 
GONC 

Memerr GOTO 


RPE10 C=B 
DO=(5) 
A=DATO 
B=A 
A=A-C 
DATO=A 
C=B 
C=C-D 
C=-C 
BCEX 
GOSBVL 
ADOEX 
CD1EX 
B=A 
B=B-C 
C=R3 
GOSBVL 
RTN 


Routine HP 


N Ù # # + # * 


SCAN ST=0 
ST=0 
GOSUB 
LCASC 
?C#A 
GOYES 
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Insère une chaine ds une autre 


du texte à insérer 


C(A)=Fin du texte à insérer 
D(A)=Position de l'insertion 


Sauvegarde À et C 


A Longueur de L'insertion 
A Verifie qu'il y a assez 
A de place 

A 

L\ 

=LEEWAY 

A 

Memerr 

(=FUNCRO)+5 

A 

=CHKmem 

RPE10 


memerr Il n'y a pas de place 


A Récupère La Longueur 
(=FUNCRO)+5 

A B(A) à début de La chaîne 
A où a Lieu L'insertion 

A Actualise sa nvelle pst 
A 

A 

A 

A 

A 


=MOVEUM Fait de La place 


A 
A 


=MOVEDM Puis insère La chaîne 


Ecrite (sans doute) par SW ou FH 
Consulter Les IDS Vol. 1 


Anchor 
RegExp 
PATCHR 
AU 

B 
L190)j 


L125.1 


L125.2 
MATCH+ 


L130 


L190j 


L140 


L150 


L160 
L170 


L190 


L190.1 


DO=D0+ 
A=DATO 
LCASC 
?C#A 
GOYES 
DO=D0+ 
ADOEX 
=R2 
?C#A 
GOYES 
C=R3 
?ST=0 
GOYES 
?D#C 
RTNYES 
D=C 
R1=C 
RTNCC 


GOSUB 
LCASC 
?2C#A 
GOYES 
A=B 
DO=A 
DO=D0+ 
A=DATO 
LCASC 
?C=A 
GOYES 
B=B+1 
B=B+1 
GOSUB 
?ST=0 
GOYES 
?ST=1 
GOYES 
GOSUB 
LCASC 
?C#A 
GOYES 
?ST=1 
RTNYES 
ST=1 
B=B+1 
B=B+1 
GONC 


?ST=0 
GOYES 
GOSUB 
LCASC 
?C=A 

GOYES 
LCASC 
?C=A 

GOYES 
LCASC 


2 

B 
1$: 
B 
L140 


L140 


Anchor 
L125.2 


PATCH+ 


"\!' 

B 
L240)j 
A 

A 
RETOGL 
RegExp 
L190.2 
Anchor 
L190 
PATCHR 
‘A! 

B 
L190.1 
First 


Anchor 
A 

A 

L240 


RegExp 
L190.2 
PATCHR 





(B.E.T.) 





L240j ?C=A 
GOYES 

L190.2 GOSUB 
LCASC 
?C=A 
GOYES 

L200 C=R2 
?8<C 
GOYES 
C=D 
GOTO 


L210 C=R3 
?D>=C 
RTNYES 
C=D 
DO=C 
C=DATO 
?CsA 
GOYES 
?ST=1 
RTNYES 
D=D+1 
D=D+1 
GOTO 


L240 ST=1 
GOSUB 
Goc 
?2S1=1 
RTNYES 
D=D+1 
D=D+1 
C=R3 
?D>=C 
RTNYES 
GONC 

RTNCC RTINCC 


memerr GOVLNG 

SCANSB CD1EX 
Di=C 
A=RO 
?C<A 
GOYES 
D1=D1- 
C=R1 
DATI=C 
D1=D1- 
C=B 
DATI=C 
D1=D1- 
C=D 
DATI=C 
?ST=1 
GOYES 
C=R1 


nn ———— 


B 
L240 
PATCHR 


L240 
Anchor 


L210 


TopLvl 
SCANSB 
RTNCC 

Anchor 


> > 


A 


L190 (B.E.T.) 


2MEMERR 


TopLvl 
SCNSB1 


SCNSB1 


L340 


L350 
L360 


PATCH+ 


PATCHR 


RETOGL 


RETOGO 


L370 


L380 


L390 


L400 


L405 


L410 


L475 


D=C A 
D=D-1 A 
D=D-1 A 
ST=0  TopLvl 
D1=D1- 5 
C=RSTK 
DAT1=C 
D1=D1- 
C=ST 
DATI=C P 
C=R3 
R1=C 


> 


C=R2 

?B<C A 
GOYES L370 
C=D A 
Ri=C 

GOTO L640 


B=B+1 À 
B=8+1 
A=B A 
DO=A 
A=DATO B 
RTNCC 


> 


?ST=1 RegExp 
GOYES RETOGO 
ST=1  RegExp 
RTN 

ST=0 RegExp 
RTNCC 


GOSUB PATCHR 
LCASC ‘\' 
?C#A B 
GOYES L405 
GOSUB PATCH+ 
C=R2 

?B<C A 
GOYES L400 
D=D-1 A 
D=D-1 A 

GOTO EXIT 


LCASC ‘\! 
?C"A B 
GOYES L405 
GOSUB RETOGL 
?ST=0 RegExp 
GOYES Lé40 
LCASC !.! 
?2C#A B 
GOYES L420 
C=R1 

?2D<C A 
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L420 


L430 


L440 


L500 


L450 


EXIT 


L640 


L460 


L480 


L480.2 
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GOYES 
GOTO 


LCASC 
?C#A 
GOYES 
GOTO 
LCASC 
?C#A 
GOYES 
C=R1 
?D<C 
GOYES 
GOTO 


C=D 
DO=C 
C=DATO 
?C=A 
GOYES 
ST=0 
GOTO 


B=B+1 
B=B+1 
C=R2 
?B<C 
GOYES 
C=D 
C=C+1 
C=C+1 
R1=C 
ST=1 
GOTO 


D=D+1 
D=D+1 
C=R1 
?D>=C 
GOYES 
GOTO 


B=B+1 
B=B+1 
?ST=0 
GOYES 
LCASC 
?C#A 

GOYES 
C=R2 

?B>=C 
GOYES 
GONC 


LCASC 
?C#A 
GOYES 


B 
L450 
Match 
SCNRTN 


A 
2 


L 
L460 
A 
A 
A 


Match 
SCNRTN 


A 
L480 
L350 


PATCHR 
A 

A 
RegExp 
L&9ONR 
‘a! 

B 
L480.2 


L640 
L480 


1$: 
B 
L500 


(B.E.T.) 


L&SONR 


L520 


L550.1 


L530 


L540 


L550 


L560 


L570 


L580 
L580.1 


L590 


L600 


C=R2 
?B>=C 
GOYES 
GONC 


LCASC 
?C#A 
GOYES 
ST=1 
GONC 


D=D+1 
D=D+1 
C=R1 

?D>=C 
GOYES 
B=B+1 
B=B+1 
C=R2 

?B>=C 
GOYES 
?ST=0 
GOYES 
GOSUB 
LCASC 
?C#A 

GOYES 
GONC 


LCASC 
?C=A 
GOYES 
LCASC 
?C#A 
GOYES 
C=R2 
C=C-1 
C=c-1 
?B<C 
GOYES 
GOTO 


GOSUB 
LCASC 
?C=A 
GOYES 
C=R1 
DO=C 
DO=D0- 
C=DATO 
?C=A 
GOYES 
C=R1 
C=c-1 
C=c-1 
R1=C 
?D<C 
GOYES 


A 
L640 
L500 


"\! 

B 

L500 
RegExp 
L480 


Lé40 
RegExp 
L580 
PATCHR 


L580.1 
L640 


PATCHR 


L6é10 


> > 


L580 


(B.E.T.) 


(B.E.T.) 


(B.E.T.) 





L500j GOTO L500 
L610 
L620 GOSUB SCANSB 
GONC Lé600 


GOTO Lé640 


SCNRTN C=ST 
C=DATI P 
ST=C 
D1=D1+ 1 
C=DATI À 
RSTK=C 
D1=D1+ 5 
C=DATI A 
D=C A 
D1=D1+ 5 
C=DATI A 
B=C A 
D1=01+ 5 
C=DATI A 
D1=D1+ 5 
?2ST=1 Match 
RTNYES 
R1=C 
RTNCC 


nmnnmmmmmmmsmmmmmmmmmmmmmmmmmmmmmmmmmmmmsmmmmssss 


LA CHASSE A L'OCTET 
Ou le MONSTRE HP-IL 


Lorsque l’on copie un fichier TEXT vers un 
périphérique de masse, ce dernier a tendance 
à le grossir énormément. Ainsi un fichier 
peut-il, après un court passage par la boucle 
HP-IL, avoir une taille plus grande de 
quelques 2 à 3 Koctets. Il va sans dire que 
c’est de la mémoire gaspillée en pure perte. 


C'est pourquoi j'ai créé SHRINKLX. 
L'utilisation de l’ordre SHRINK permet de 
réduire tout fichier TEXT en mémoire 
centrale à sa taille minimale. C’est tellement 
utile, que je profite de cet article pour 
demander à JPB s’il veut bien modifier son 
nouvel EDIT pour faire un ordre COPY qui 
agirait comme l’ordre fourni d’origine avec 
le 71, et compresserait de plus tous les 
fichiers TEXT. 





LEX ®SHRINKLX! 


1D #1 PARIS-ROM 
MSG 0 
POLL O0 
ENTRY SHK 
CHAR  #D Progremmable 
KEY “SHRINK! 
TOKEN 81 
ENDTXT 
FSPECx EQU #09F2D 
MFERR EQU  #09393 
MGOSUB EQU  #1AF01 
MVMEM+ EQU  #0133C 
FINDF+ EQU  #09F63 
LISTDC EQU  #05839 
eFTYPE EQU  #0003F 
RDHDR1 EQU  #076FD 
OFLAGh EQU  #00014 
oFTYPh EQU  #00010 
FILSK+ EQU  #06F1D 
SEOF EQU  #00007 
SWPBYT EQU  #17A24 
FSPECp EQU  #03CC5 
FSPECe EQU  #02F02 
SBADRC EQU  #00008 
eEOFIL EQU  #00036 ñ 
NXTSTM EQU  #08A48 
SHKDC GOVLNG =LISTDC 
SHKP  GOSBVL =FSPECp 
RTNNC 
GOVLNG =FSPECe 
REL(5) SHKDC 
REL(5) SHKP --- SHRINK Fichier --- 
SHK GOSBVL =FSPECx Recherche un nom de fichier 
GONC  SHKOO Un nom est bien spécifié 
Mferr GOVLNG æ=MFERR IL n'y a aucun nom correct 
SHKOO GOSBVL =FINDF+ Recherche de ce fichier 
GoCc Mferr IL n'existe pas 
CD1EX On l'a trouvé 
R3=C R3 à son en-tête 
D1=C Ainsi que D1 
GOSBVL =RDHDR1 Est-ce un fichier TEXT? 
A=R2 C'est à dire de type: 0001 
A=A-1 A 
A=A-1 À 
Goc SHK10 Oui 
LC(2) =eFTYPE Non, on ne peut rien faire 
GONC  Mferr (B.E.T.) 
SHK10 A=R3 ACA) à l'en-tête du fichier 
Cc=0 A 
C=C-1 A 
R1=C R1 = # Ligne inexitant(-1) 
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SHK20 


SHK30 


SHK60 


?C#0 
GOYES 


?ST=0 
GOYES 
LC(2) 
GONC 


C=D 
A=C 
C=0 
C=c-1 
C=DAT1 
C=C+1 
GONC 
D1=D1+ 
CD1EX 
B=C 
B=B-A 
C=R3 
GOSBVL 
CON(5) 
Goc 
GOVLNG 


POSTXT 
SHK20 


Mferr 


æsBADRC 
SHK30 
seEOFIL 
Mferr 


>2r>>>}> 


SHK60 


A 
A 


æ=HGOSUB 
ZMVMEM+ 
Mferr 

2=NXTSTM 


Recherche de fin de fichier 
On ne l'a pas atteinte (11) 
On l'a atteinte, mais il 
s'est produit une erreur 


Le fichier est-il endomma- 
-gé? Non 


(B.E.T.) 


DCA),ACA) à Début du 
fichier suivent 

Astuce pour mettre F dans 
C(A) 

D1 à 1 quartet après La 
dernière Ligne 

Y-a-t-il un marqueur de fin 
de fichier? Oui 


B(A) à Début du bloc 

B(A) = offset 

CCA) à Début du fichier 
Ecrasons Le bloc indésira- 
ble 

IL y a un problème 

Tout va bien 


Rte tete Per de de de ee fe fe ee eee le ee ee re re or eee or eee de le ee de de de de 


* POSTXT - Routine HP - Cf IDS1 


* 


IL faudra un jour La réécrire 


Pete rte detre de ee de de ee de ee ee ee eee ee re eee ere eee er re de 


POSTXT 


FRCRDr 


FRCR10 
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D1=A 
D1=D1+ 
D1=D1+ 
GOSBVL 
D=C 
D1=D1+ 
CD1EX 
A=R1 
GOSUB 
RTNNC 
C=0 
?ST=0 
RTNYES 
LC(2) 
RTNSC 


R1=A 
A=0 
A=A-1 
RO=A 
ST=0 
ST=0 
GOSUB 
RTNC 
DO=C 


=oFTYPh 


(=0FLAGh)-(=0FTYPh) 


SFILSK+ 
A 
5 


FRCRDr 


A 
=SsBADRC 


=eEOFIL 


W 
A 


=sEOF 
=sBADRC 
PRSREC 


PRSREC 


rtncc 


PRSR10 


PRSR20 


A=RO 
A=A+1 
RO=A 
C=R1 
?A=C 
GOYES 
?ST=1 
RTNYES 
CDOEX 
GONC 


B=0 
D1=C 
?C>=D 
GOYES 
D1=D1+ 
CD1EX 
?C>D 
GOYES 
A=DAT1 
GOSBVL 
P= 

B=A 
C=B 
B=8+1 
P= 
RTNC 
BCEX 
CSRB 
C=C+1 
C=C+C 
C=C+C 
AD1EX 
D1zA 
C=A+C 
?C<=D 
GOYES 
ST=1 
RTNCC 


ST=1 
RTNSC 


B=B-1 
ST=1 
RTNSC 


A 


A 
rtncc 
=sBADRC 


FRCR10 (B.E.T.) 


A 
A 
PRSR10 
4 


PRSR20 


=SWPBYT 


> >» 


A 

A 

rtncc 
=SBADRC 


=sEOF 


=SsBADRC 


Le 21-05-86, pour JPC 





ASSEMBLEUR RECURSIF 


Il est relativement simple d'utiliser Ja 
récursivité en assembleur. Il suffit pour cela 
d'appliquer quelques règles, règles que je me 
propose de vous énoncer. 


Une routine récursive doit transmettre, à la 
routine qu’elle appelle, certains paramètres : 
ils seront laissés ou dans les registres du 
micro-processeur, ou dans des zones de 
stockage temporaires (SCRTCH, FUNCRO 
etc.). 

D'autres paramètres sont propres à la routine 
considérée : ceux-là seront sauvegardés sur la 
pile. Ce peuvent être des pointeurs (DI, 
C(A), OUTBS...) ou des registres (P, A(W), 
RO...) ; parmi eux se trouve LO (RSTK(0)), 
que l’on devra TOUJOURS sauvegarder . 


Vous trouverez dans ce numéro, en guise 
d'application des régles précédentes, une 
fonction récursive qui calcule n!. En voici 
l'algorithme : 

Si n=0 alors n!=1 

Si n#0 alors n!=n*(n-1)! 


Jean-Jacques 
MOREAU 


LEX "XFACTLEX' 


ID #5c Non supporté par Le club 
HSG 0 
POLL © 
ENTRY FACT 
CHAR  #F 
KEY "XFACT' 
TOKEN 228 Non supporté par Le club 
MEMERR EQU #0944D 
OUTRES EQU #0BC84 
ARGPR+ EQU #0E8EB 
MP2-15 EQU #0C43A 
DO=AVS EQU #09B2C 
SUBONE EQU #0C327 
ENDTXT 
NIBHEX 411 --- XFACT(n)=n! --- 
FACT  ADOEX Sauvegarde DO ds RO 
RO=A 


Memerr 
XFACT 


XFACT* 


ZERO 


GOSBVL =DO=AVS 
C=0 A 


LC(2) 2*16+5 
A=A+C À 

DO=A 

GOSBVL =ARGPR+ 
GOSUB XFACT 
C=RO 

DO=C 

GOVLNG =OUTRES 


GOVLNG =MEMERR 
CD1EX 

D1=C 

ADOEX 


?C<=A À 
GOYES Memerr 
ADOEX 

D1=D1- 5 
C=RSTK 
DAT1I=C A 
D1=D1- 16 
DATI=A W 
D1=D1- 16 
C=B W 
DATI=C W 
GOSBVL =SUBONE 


P= LL 
?78=0 WP 
GOYES ZERO 
GOSUB XFACT 
C=DATI W 
D=C y 
Di=D1+ 16 
C=DATI W 
D1=D1+ 16 
GOSBVL =MP2-15 
C=DATI A 
RSTK=C 
D1=D1+ 5 
RTN 


D1=D1+ 16 
D1=D1+ 16 
D1=D1+ 5 
A=0 W 
B=0 W 
B=B+1 P 
GOTO XFACT* 





Calcule et sauvegarde ds 
DO (AVMEMS)+37 en vue 
d'une 

utilisation ultérieure 


Recherche et prépare n 
Calcule n! si n#0 et n#1 
Remet DO en place 


Retourne n! 


Y-a-t-il suffisement de 
place sur La pile pour 
sauvegarder 
L'environnement 
courant? 

Non 


Sauvegarde LO 


Sauvegarde A(W) 
Sauvegarde B(W) 
Prépare Le calcul de 
n-1)1 

Si nest nul, 

alors n!=0; 

sinon n!zn*(n-1)! 


A ce point (A,B)=(n-1)! 
Récupérons n dans (C,D) 


Puis calculons n“(n-1)! 
Rendons La main à La 
routine appelante 


On n'a pas 0!=0, 


mais Olz1 


(Rappelons que P=14) 
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DESSINE-MOI UN MOUTON... 


Quand on veut faire du graphique, sur une 
ThinkJet, on est bien embêté. Comment faire 
comprendre à cette satanée machine qu'on 
veut des histogrammes, des camemberts, ou 
autres graphes de fonctions. Il fallait bien 
que quelqu'un s’y mette. Alors, je m'y suis 
mis. C’est ainsi que naquit ce petit 
programme, et son lex miniature qui 
l'accompagne. 


BUT 


Ce programme dessine sur une ThinkJet des 
histogrammes horizontaux à partir de 
données telles que tableau de valeurs, 
légendes et titre... 


UTILISATION DU PROGRAMME 


"GRAPH" a été rédigé comme un sous 
programme, donc appelable par vos propres 
réalisations en matière informatique. Il y a 
peu de choses à savoir, et tout est expliqué 
dans les commentaires du programme. 
Néanmoins : 


A est le nombre d’'années", c’est à dire le 
nombre de blocs de barres. Essayez, vous 
verrez: c’est beaucoup plus facile à 
comprendre qu’à expliquer ! 


B est le nombre de barres horizontales dans 
une année. Tel quel, le programme limite 
cette valeur à 6. Vous verrez plus loin la 
manière d'augmenter ce nombre. 


T est le tableau contenant les valeurs à 
représenter sous forme d’histogramme. Ce 
tableau devra être déclaré avec un ordre du 
type DIM T(A,B) où A et B sont les valeurs 
expliquées ci-dessus. Notez que l'indice 0 
n’est jamais utilisé, c’est à dire que tout se 
passe comme si le tableau avait été déclaré 
en OPTION BASE 1. 


Pour la graduation de l’axe vertical, il faut 
connaître la première année (celle qui 
correspond à la ligne T(1,1..B) du tableau. 
Les graduations vont d'année en année. 
Notez que si ce nombre vaut 0, aucune 
graduation n’est imprimée. 
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Chaque barre correspond à un objet. Vous 
passez le nom des B objets (autrement dit, 
les légendes) dans le tableau X$. 


Le graphique a un titre que vous mettez dans 
la variable T$. Il sera mis hors du cadre, en 
gras et centré sur la largeur de la feuille. 


Enfin, vous passez le maximum du tableau 
T, si vous le connaissez. Si ce n’est pas le 
cas, donnez 0, le sous programme le calculera 
pour vous et, en prime, si vous passez cette 
variable par adresse (et non par valeur), vous 
aurez le maximum calculé dans cette 
variable. 


Tapez ensuite, ou mettez dans votre 
programme favori la ligne suivante : 

CALL GRAPH (T, A, B, X, XS, TS, M) 

Les noms me sont nullement obligatoires, 
vous mettez ceux que vous voulez. C'était 
juste pour indiquer l’ordre des paramètres. 


FONCTIONNEMENT DU LEX 


Avant d'étudier le fonctionnement du 
programme, voyons comment fonctionne le 
Lex associé. 


Un avertissement tout d’abord : ne dites pas 
que c’est moi qui l’ai fait, je risquerais de 
me faire renvoyer du SIG ! Et si je me fais 
renvoyer du SIG, je saurais que c’est vous. 


Pourquoi ? Eh bien, ce Lex fait partie de la 
catégorie des lex qui vont autour d’un basic 
particulier. Autrement dit, il est fait pour 
aller avec le sous programme GRAPH. Si 
vous essayez de l'utiliser à d’autres fins, c’est 
sans aucune garantie de ma part, et encore 
moins de la part du SIG ! Au contraire des 
autres Lex parus dans JPC, celui-ci n’est pas 
de la belle programmation. C’est même plutôt 
du bidouillage. Car il faut avoir l'esprit un 
peu torturé pour aller faire du graphique 
dans une variable basic. Chuttt ! Ah bon, il 
ne faut pas le dire ? Non ! les oreilles du 
SIG sont partout ! 


Bravant tous les risques, je vais quand même 
essayer de vous expliquer le principe de 
fonctionnement de ces 302 octets. 


Le graphique est construit ligne par ligne. Il 
faut donc un espace de 80 octets pour 
recevoir une "image" de cette ligne. J'ai donc 


choisi de le faire dans une variable. Facile, 
direz-vous : il suffit de faire une fonction 
du type G$=PSET(GS), et il suffira d'opérer 
dans la chaîne de caractères qui est au 
sommet de la math-stack. Eh bien, non. Ce 
serait trop facile. Mais surtout trop lent. Je 
vais donc aller triturer directement la 
variable G$ dans l’espace des variables basic. 
Chuttt ! Oh, pardon ! 


La variable G$ doit donc être dimensionnée 
au préalable par un ordre DIM GS$[80]. 
Avant le début de chaque ligne, il faudra la 
remplir avec des CHRS(0) pour l’initialiser à 
la ligne "vide". 


Il suffira ensuite d’exécuter GPSET suivi 
d’un argument numérique (entre 1 et 640) 
pour allumer un point dans l’image G$ de la 
ligne. Simple, non ? 


Eh bien, ça se complique quand on veut 
tracer une ligne. Il ne suffit pas de faire 
GLINE, encore faut-il pouvoir lui donner en 
pâture 5 paramètres choisis soigneusement. 
Pourquoi cinq paramètres ? Réponse : pour 
pouvoir dessiner de jolis motifs à l’intérieur 
des barres. Explication : 





P t e 
<---.. Dé Dé > 
fl XXXXXXX XAXXXXX XXXXX 
1 200OUUEX XXXOUX 200UOUX 
| 00cxxxx 200000X XI0UOXX 


Vous avez là un petit exemple de motif. 
Chaque ligne est construite en donnant 
comme paramètres : 


1) La coordonnée du premier point : x 
2) La longueur de la ligne : 1 

3) Le premier écart : p 

4) La taille d’un trait:t 

5) L'écart entre deux traits : e 


Pour dessiner un motif complet (donc sur 
plusieurs lignes), il suffira de faire varier p 
(ici diminué de deux à chaque fois) pour 
obtenir les plus beaux effets. 


La syntaxe est donc : GLINE x, L, p, t, e. 


Pour tracer une bête ligne droite, prenez 
p=t=1, et e=0. 








Je vous en prie : pour la bonne santé de vos 
HP71, n’essayez pas des valeurs incohérentes, 
juste “pour voir". Ou alors, vous allez voir ! 
Le lex est un peu protégé. Juste un petit peu. 
N'oubliez pas qu’il est fait pour aller avec 
"son" basic. 


Enfin, si vous voulez imprimer votre chef 
d'oeuvre, je vous conseille d’aller voir du 
coté du sous-programme ‘’P’, tout en bas du 
programme. 


FONCTIONNEMENT DU BASIC 


Je ne m'étendrai pas trop de ce coté (on ne 
peut pas s'étendre partout). Le programme 
est commenté, suffisamment pour que la 
lecture ne soit pas trop ardue. 


Sachez simplement que la fin du programme 
contient 6 DATAs, qui codent en fait les 
motifs. En les changeant, ou en rajoutant et 
en modifiant le N=6 de la ligne 1010, vous 
aurez de nouveaux motifs. Bonne chasse. 


LIMITATIONS 


Là non plus, je ne m'étendrai pas trop. 
Sachez simplement que : 


Il vaut mieux avoir de grands nombres 


entiers (moins de 6 chiffres) sur l'axe 
horizontal. La fourchette idéale sur cet axe 
serait un maximum compris entre 100 et 
90000. Sinon, les graduations seront 
inutilisables car non précises. 


Les graduations de l’axe vertical sont des 
années, c’est à dire sont des nombres 
inférieurs à quatre chiffres, et croissent de 1 
en 1. C’est facile à changer, mais complique 
légèrement le programme. 


A part ça, c’est un programme dont je suis 
fier. Merci pour lui. 
A bientôt, 


Pierre DAVID (P37, SIGI) 
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LEX "GRAPHLEX! 


t EQU 78 
CON(2) #E1 Id 
CON(2) t Lowest token 
CON(2) 1+t Highest token 
CON(5) 0 Next Lex chain 
NIBHEX F 


REL(4) 1+TxTbSt Offset to text table 
CON(4) 0 No message table 
CON(5) 0 No poll handler 


CON(3) (TxEn01)-(TxTbSt) 
REL(5) LINEe 

CON(1) # 

CON(3) (TxEn02)-(TxTbSt) 
REL(5) PSETe 

CON(1) #D 


TxTbSt 
TxEn01 CON(1) 9 
NIBASC 'GLINE!' Syntaxe: GLINE x,l,p,t,e 
CON(2) t 
TxEn02 CON(1) 9 
NIBASC !'GPSET! Syntaxe: GPSET x 
CON(2) 1+t 
NIBHEX 1FF 


STMTRO EQU #2F871 
DROPDC EQU #05470 
FIXP  EQU #02A6E 
NUMCK  EQU #03690 
COMCK EQU #036CD 
RESPTR EQU #03172 
MSPARe EQU #02E5C 
RNDAHX EQU #136CB 
ADRS50 EQU #0F551 
MFERR EQU #09393 
ARGERR EQU #08F19 
EXPEX- EQU #0F178 
NXTSTM EQU #08A48 


tee ee he eee er ee er eee eee ee er er re ee ee ee ee 


* rndahx 

* 

* but: évaluer Le parametre au sommet de La math- 
* stack 

* entrée: 

* - D1 * sommet de La math-stack 

* sortie: 

* - ACA) = valeur du paramètre, en hexa 

* - D1 * paramètre suivant 

* - mode = HEX 

“ - p=0 

* appelle: RNDAHX 

* note: si Le paramètre est négatif, une erreur 
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* ARGERR est générée 
RhhhétitthtpihttétatététeRthatithhtt tt hide 
rndahx GOSBVL RNDAHX  AÇA) := param. en hexa 
GONC argerr Paramètre < 0 
D1=D1+ 16 
RTN 
argerr GOVLNG ARGERR 


Re er re er rer rer re re er re er re er de de de de 


PSETd, LINEd 


but: routines de décompilation de PSET et LINE 
appelle: DROPDC 
RRRRRRRRRRRRR RER RER RER RÉ RER RER ER RÉ RAR RÉ RÉ RÉ 
PSETd 

LINEd GOVLNG DROPDC 


* 
* 
* 
* 


RRRRRRRRRRRRRRRRRRRRRRRRRRR RER RRRR RÉ RER RER RS RSR RÉ RÉ 
* PSETP 

* 

* but: routine de parse de PSET (PSET x) 

* appelle: FIXP 


Ne ee ee dede leo de he ee See er rer re re ee ee ee er fe rer roro re 


PSETp GOVLNG FIXP 


* 


Re de de Re ee ee ed ee ee ee fe re re er re ee er re re re re ee de Ge 


LINEP 


LINE x, L, p,t,e 
appelle: NUMCK, COMCK, RESPTR 
See ee er re rer er er er re er ee le ee eee he ee ee dr de dr dr 
LINEp LC(1) 5 
Lipi0 C=C-1 P 


* 
* 
* but: routine de parse de LINE 
+ 
* 


5 paramètres à parser 
sauvegarde du compteur dans 


R2=C R2 

GOSBVL NUMCK parser une expression num. 
GOSUB resptr 

C=R2 restauration du compteur 
?2C=0 P sortie si = 0 

GOYES resptr 

GOSBVL COMCK sinon, on cherche une “," 


GONC mspare si non trouvée, erreur 
C=R2 restauration du compteur 
GoC Lip10 B.E.T. 

resptr GOVLNG RESPTR 

mspare GOVLNG MSPARe “missing parameter“ 


eee ee eee re ee ee er re ere ee ee ee ere eee ee 


* initgr 

* 

* but: initialiser Le nécessaire pour l'exécution 
* des ordres PSET et LINE 

* entrée: 

* - D1 * sommet de La math-stack 

* sortie: 

* - DO = adresse de La chaîne 

* - ACA) = Longueur de La chaîne en pixels 


A ee ee re er ee ee eee 





initgr GOSBVL EXPEX- Evaluation des paramètres 
LCC3) ‘'g' Code de La variable 
B=C x transféré dans B(X) 
GOSBVL ADRS50 
GoC invvar variable non trouvée 


DO=D0+ 11 on cherche l'adresse de La 
A=DATO A chaîne (ad. relative) 
CDOEX 
C=C-A A calcul de l'adresse réelle 
DO=C DO := adresse de La chaîne 
A=0 A 
A=DATO 4 ACA) := LEN(GS) 
A=A+A À 
A=A+A À 
A=A+A À Longueur en pixels 
DO=D0+ 4 DO := adresse des données 
RTN dans La chaîne 

invvar LC(2) 83 
GOVLNG MFERR 


REL(5) PSETd 

REL(5) PSETP 
8e ee er rer De ee er rer re rer ro re he 
* PSETe 
* 


* but: allumer un point, pour Le programme GRAPH 
Re Re ee ee ee er ee ee re ee ee 


PSETe GOSUB initgr  initialise Le graphique 


RO=A sauvegarde de La Longueur 
GOSUB rndahx 

C=RO CCA) := xmax 

?2A#0 A 

GOYES PSET10 

A=A+1 À si x = 0 alors x := 1 


GONC PSET20 B.E.T. 
PSET10 ?A<=C A 
GOYES PSET20 
A=C A 
PSET20 GOSUB pset 
GOTO LINE99  NXTSTM 


si x > 640 alors x := 640 


ee eee ee eee ee re eee er rer er ee 


pset 


but: allumer Le point ACA) 

entrée : 

- ACA) = numéro du point à allumer (1..640) 

- DO = adresse de La variable G$ 

sortie : 

-P=0 

- DO inchangé 

utilise: ACW), BCA), C(CA) 

de ee eee eee ee re eee ee ee 

pset A=A-1 A x := numéro - 1 
B=A A 
A=0 W 
A= A 

ASRB 


M ON 4 + #4 # # + + * 


A := 00000000000xxxxx 


0000 


ASRB 
ASRB A:= x div 8 
C=0 
LC(1) 
B=B&C 
B=C-B 
LC(2) 
C=C-A 
C=C+C 
ADOEX 
C=C+A 
DO=C 
C=0 B 
C=C+1 8 
GOTO pset20 
pset10 C=C+C B 
pset20 B=B-1 A 


= x mod 8 
= 7 - (x mod 8) 


PAT rNE 
n 


C := offset de x en octets 
:= NW "“ quartets 


> 
n 
on 
" 


adresse réelle de x 


GONC  pset10 

B=C B 

C=DATO B 

C=CIB B Allumage du point 
DATO=C B 

DO=A Restauration ancien DO 
RTN | 


REL(5) LINEd 
REL(5) LINEP 


de ee re re er er re er ee ee ee er re re ee ee ee ee 


* LINEe 
* 


* but: tracer une Ligne, pour Le programme GRAPH 


ee ee eee er er ere er eee 


LINEe GOSUB initgr  initialisation du graphique 


R2=A R2 := LEN(G$) 

COOEX C := adresse de G$ 
RO=C RO := 0 G$ 

LC(1) 5 5 paramètres à stocker 


DO=(5) STMTRO ae partir de STMTRO 
GOTO LINE20 


LINE10 Ri1=C sauvegarde du compteur 


GOSUB rndahx 

DATO=A A sauvegarde du paramètre 
DO=D0+ 5 

C=R1 restauration du compteur 


LINE20 C=C-1 P 
GONC LINE10 tant que compteur >= 0 


* O0 + STMTRO : écart 
* 5 + STMTRO : taille 
* 10 + STMTRO : premier incrément 
* 15 + STMTRO : Longueur 
* 20 + STMTRO : x 
?2A#0 À x 
GOYES LINE30 
A=A+1 À si x = 0 alors x := 1 
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LINE30 C=RO C = adresse de G$ C=DATI À C := écart 
DO=C DO =" » A=A+C À on fait Le grand écart 
R1=A R1 := valeur courante de x Ri=A nouveau x 
GOSUB pset allumer x C=RO xf 
D1=(5) 5*3+STMTRO Longueur ?A<C A si x < xf 
A=R1 A:= x GOYES LINES0O on recommence | 
C=DATI À C := longueur 
2C#0 À LINE99 GOVLNG NXTSTM 
GOYES LINE35 
C=C+1 À si longueur = 0 alors 
DATI=C A longueur := 1 
LINE35 A=C+A A A := point final + 1 
A=A-1 A A := point final 
C=R2 C=LEN(GS) 
?A<=C À 
GOYES LINE40 
A=R1 A := x1 
C=C-A À 
C=C+1 À nouvelle longueur calculée 
DATI=C À 
Are 4 V'a vraiment = 
LINE40 RO=A RO := limite, nommons-la xf ] pas besoin du 4] = 
GOSUB pset allumer xf : 
ui : ve : : ra 7 RE 
her ni Rs =, 
A=A+C À 
R1=A 
C=RO xf 
?2A>zC À si xtpremier incrément>=xf 
GOYES LINE99 pas La peine de tracer 
D1=D1- 5 D1 = 5 + STMTRO (taille) 
C=DATI À 
R2=C 
D1=D1- 5 D1 = O0 + STMTRO (écart) 
* := 
Eu EST-CE QU'ON PEUT DESSINER ON NIGBLE Ÿ 
* R2 := taille bis 
* R3 := incrément dans la taille 
* Di pointe sur l'écart 
LINE50 C=0 A boucle externe 
C=C+1 A Le compteur de taille est 
R3=C initialisé avec 1 
LINE60 A=R1 A:=Xx LL 
GOSUB pset 
A=R1 
A=A+1 À X:=x+1 
R1=A h 
C=RO 
?A>=C A si x >= x2 | 
GOYES LINE99 fini 
=R3 
A=A+1 À compteur taille incrementé 
R3=A 
C=R2 C := taille 
?A<C A arrivé a La fin de taille 
GOYES LINE60 
A=R1 


__ JPC 35 Page 42 em 


Un exemple 
















0 1 2 3 4 5 6 ? 8 pee 0 
1983 

SIVIT 

272277277777777777777777777777772 

722 CL TILL IIILILIL11) 

1384 F 

JS 
195 

Z 


1986 F 





22222272 





tulipes 
roses 
narguerites 
EZZZ7A bleuets 
REX violettes 
poetes 
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UN CONTE A VOTRE FACON 


A quoi pourrait bien ressembler le fruit des 
amours coupables de l'informatique et de la 
littérature, et cet enfant serait-il viable ? 

Ou encore, "Mon petit Soixantéhonze, 
raconte-moi une belle histoire avant de 
m'endormir..”. S'inspirant de l’enseignement 
programmé, Raymond QUENEAU proposait, 
en 1972, le petit divertissement que voici 
(extrait de "L’Oulipo”, Coll. Idées, 
Gallimard). 


E. Gengoux 
d'après un programme pour HP75 de 
J.Dutertre (paru dans le journal 
de Toulouse). 


LES TROIS ALERTES PETITS POIS. 
UN CONTE DE Raymond QUENEAU 


Ce texte soumis à la 83ème réunion de travail 
de l'Ouvroir de Littérature Potentielle, 
s'inspire de la présentation des instructions 
destinées aux ordinateurs ou bien encore de 
l'enseignement  programmmé. Cette une 
structure analogue à la littérature “en arbre” 
proposée par F. Le Lionnais à la 79ème 
réunion 


1. Désirez-vous connaître l’histoire des trois 
alertes petits pois ? 

si oui, passez à 4 

si non, passez à 2 


2. Préférez-vous celle des trois grands 
minces échalas ? 

si oui, passez à 16 

si non, passez à 3 


3. Préférez-vous celle des trois moyens 
médiocres arbustes ? 

si oui, passez à 17 

si non, passez à 21 


4. Il y avait une fois trois petits pois vêtus 
de vert qui dormaient gentiment dans leur 
cosse. Leur visage bien rond respirait par les 
trous de leurs narines et l’on entendait leur 
ronflement doux et harmonieux. 

si vous préférez une autre description, 
passez à 9 

si celle-ci vous convient passez à 5 
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5. Ils ne rêvaient pas. Ces petits êtres, en 
effet, ne rêvent jamais. 
si vous préférez qu’ils rêvent, passez à 6 
sinon, passez à 7 


6. Ils rêvaient. Ces petits êtres en effet 
rêvent toujours et leurs nuits sécrètent des 
songes charmants. 

si vous désirez connaître ces songes, passez 
à 11 

si vous n’y tenez pas, passez à 7 


7. Leurs pieds mignons trempaient dans de 
chaudes chaussettes et ils portaient au lit des 
gants de velours noir. 

si vous préférez des gants d’une autre 
couleur, passez à 8 

si cette couleur vous convient, passez à 10 


8. Ils portaient au lit des gants de velours 
bleu. 

si vous préférez des gants d’une autre 
couleur, passez à 7 

si cette couleur vous convient, passez à 10 


9. I1 y avait une fois trois petits pois qui 
roulaient leur bosse sur les grands chemins. 
Le soir venu, fatigués et las, ils 
s'endormirent très rapidement. 
si vous désirez connaître la suite, passez à 5 
si non, passez à 21. 


10. Tous les trois faisaient le même rêve, ils 
s'aimaient en effet tendrement et, en bons 
fiers trumeaux, songeaient toujours 
semblablement. 

si vous désirez connaître leur rêve, passez 
à 11 

si non, passez à 12 


12. Ils rêvaient qu'ils allaient chercher leur 
soupe à la cantine populaire et qu'en ouvrant 
leur gamelle ils découvraient que c'était de la 
soupe d’ers. D’horreur, ils s’éveillent. 

si vous voulez: savoir pourquoi ils 
s'éveillent d'horreur, passez à, consultez le 
Larousse au mot ERS et n’en parlons plus ! 

si vous jugez inutile d'approfondir la 
question, passez à 12 


12. Opopoi ! s’écrièrent-ils en ouvrant les 
yeux. Opopoi! Quel songe avons-nous 
enfanté là ! Mauvais présage, dit le premier. 
Oui-da, dit le second, c'est bien vrai, me 
voilà triste. Ne vous troublez pas ainsi, dit le 
troisième, qui était le plus futé, il ne s'agit 


pas de s’émouvoir, mais de comprendre, 
bref, je m'en vais vous analyser Ça. 

si vous désirez connaître tout de suite 
l'interprétation de ce songe, passez à 15 

si vous souhaitez au contraire connaître les 
réactions des deux autres, passez à 13 


13. Tu nous la bailles belle, dit le premier. 
Depuis quand sais-tu analyser les songes ? 
Oui, depuis quand ? ajouta le second. 

si vous désirez savoir depuis quand, passez 
à 14 

si non, passez à 14 tout de même, car vous 
ne le saurez pas plus. 


14. Depuis quand ? s’écria le troisième. Est- 
ce que je sais, moi! Le fait est que je 
pratique la chose. Vous allez voir ! 

si vous voulez aussi voir, passez à 15 

si non, passez également à 15, car vous ne 
verrez rien. 


15. Eh bien ! voyons, dirent ses frères. Votre 
ironie ne me plaît pas, répliqua l’autre, et 
vous ne saurez rien. D'ailleurs, au cours de 
cette conversation d’un ton assez vif, votre 
sentiment d'horreur ne s'est-il pas estompé ? 
effacé même ? Alors, à quoi bon remuer le 
bourbier de votre inconscient de 
papilionacées ? Allons plutôt nous laver à la 
fontaine et saluer ce gai matin dans l’hygiène 
et la sainte euphorie ! Aussitôt dit, aussitôt 
fait : les voilà qui se glissent hors de leur 
cosse, se laissent doucement rouler sur le sol 
et puis au petit trot gagnent joyeusement le 
théâtre de leurs ablutions. 

si vous désirez-vous savoir ce qui se passe 
sur le théâtre de leurs ablutions, passez à 16 

si vous ne le désirez pas, passez à 21 


16. Trois grands échalas les regardaient faire. 
si les trois grands échalas vous déplaisent, 
passez à 21 
s'ils vous conviennent, passez à 18 


17. Trois moyens médiocres arbustes les 
regardaient faire. 

si les trois moyens médiocres arbustes vous 
déplaisent, passez à 21 

s'ils vous conviennent, passez à 18 L 
18. Se voyant ainsi zyeutés, les trois alertes 
petits pois, qui étaient fort pudiques, 
s’ensauvèrent. 

si vous désirez savoir ce qu'ils firent 
ensuite, passez à 19 

si vous ne le désirez, vous passez à 21 





19. Ils coururent bien fort pour regagner leur 
cosse et, refermant celle-ci derrière eux, s’y 
endormirent de nouveau. 

si vous désirez connaître la suite, passez 
à 20 

si vous ne le désirez pas, vous passez à 21 


20. Il n’y a pas de suite le conte est terminé. 
21. Dans ce cas, le conte est également 


terminé. 


Raymond Queneau 
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Programme "LISTPRIM" (sous-programmes pour l'utilisation de PRIMLEX) 


- Nombres premiers et divisibilite avec DIVILEX 


FERRISS==SSILELESSESSSSELL=S=LSESSSLLEEZESSZLLESESESEEESSSEEEEZ 
10 SUB LPRIMCN,M) 
20 N=FPRMCN,M) 
30 IF N THEN DISP N; à N=N+2 à GOTO 20 
40 END 


HESSSSSEIL===SSSSISSSEESSLSLLSSSSLLESS=SESESESESSESSESSESESSSSEE 
50 SUB DECOMP(N) & A=PRIM(N) 
60 IF N=A THEN 130 
70 D=1 
80 N=N DIV À à B=PRIM(N) 
90 IF B=A THEN D=D+1 à GOTO 80 
100 IF D=1 THEN DISP A; à GOTO 120 
110 DISP " MESTRS(A)&CHRS(94)ESTRS(D)&" M: 
120 IF B#N THEN A=B à GOTO 70 
130 IF N#1 THEN DISP N 
140 END 


SSSTITE22SSSSZSISSSSSSSSSSIIZI=ESSSSLES====SSSESSSSSS===SES=SEEEEE 
150 SUB EQUZ(A,B,C) à D=PGCD(A,B) 

160 A=A/D à B=B/D à C=C/D à IF FP(C) THEN 270 
170 X1=0 à Y2=0 

180 Y1=(C-X1*A)/B à IF NOT FP(Y1) THEN 230 

190 X1=-X1+1*(X1<=0) 

200 X2=(C-Y2*B)/A & IF NOT FP(X2) THEN 220 

210 Y2=-Y2+1*(Y2<=0) à GOTO 180 

220 X1=X2 à Y1=Y2 

230 DISP X =M;:X1; "+: ABS(B);#* K ": 

240 DISP MY =u:Y1: 

250 IF SGN(A*B)+1 THEN DISP "-#: ELSE DISP Me 
260 DISP ABS(A);:"* K" à END 

270 DISP “Pas de solution" à END 


ŒISSSSSTSIIESSSSSSSESSSSLELZESSSSEESESLSSSSSEESESESSSSSSE ESS EEES 
280 SUB JUM(N) ® A=FPRM(N,0) 

290 B=FPRM(A+2,0) à IF B=A+2 THEN DISP A;B 

300 A=B à GOTO 290 


310 SUB QUAD(N) à A=FPRM(N,0) 

320 B=FPRM(A+2,0) à IF B#A+2 THEN A=B à GOTO 320 
330 C=FPRM(B+4,0) à IF C#B+4 THEN A=C à GOTO 320 
340 D=FPRM(C+2,0) @ IF D#C+2 THEN A=D à GOTO 320 
350 DISP A;B;C;D @ A=C à GOTO 320 


SSSSSSSZIZII==SSSSSSESSSSSSLISIIIZISE=S=SESSISSSSS==S===SE=SSSS=ZE= 
360 SUB REDUC(N,D) à A=PGCDCN,D) 
370 N=N/A à D=D/A à DISP N;"/":D 

- Guy Toublanc (P #276) 30/4/86 
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A D A er re ee ee re ee er 


Programme "GRAPH" (utilitaire de création de tableaux graphiques pour ThinkJet) 


- Programme "GRAPH" 
Nécessite GRAPHLEX (GLINE et GPSET) 
T(1..A,1..B): Tableaux à "graphiquer" 
A: nombre “d'années! 
B: Nombre de barres dans une “année! 
X: 1ère ennée. Si 0, L'année n'est pas affichée 
X$(1..B): Tableau des Légendes 
T$: Titre du graphique 
M: Maximum du tableau. Si = 0 , il est recalculé. 








SESsEzSEEz= = 
1000 SUB GRAPHCT(,),A,B,X,X$C),T$,M) 
1010 N=6 à INTEGER Z(N,4) @ FOR J=1 TO N à FOR K=1 TO 4 @ READ Z(J,K) @ NEXT K @ NEXT J 
1020 DIM GS [80] ,KS$ [80] ,L$ [80] ,N$ [80] 
- G$ = variable “Image de La Ligne graphique" 
K$ = Ligne avec seulement l'axe vertical 
L$ = pour cheque barre, Lignes supérieure et inférieure 
NS = initialisation de G$ avec 80 x CHR$(0) 
1030 FOR 1=1 TO 20 à NS=NSECHRS(O)&CHRS(O)&CHRS(O)ECHRS(O) 8 NEXT 1! 
- Initialisation de N$, qui évitera La même boucle pour G$ à chaque utilisation 
1040 PWIDTH INF @ ENDLINE "# à PRINT CHR$S(27)&"#*r640S"&CHRS(27)&"&k0S" 
- Initialisation d'une séquence de graphique 
1050 IF M THEN 1070 ! Pas besoin de recalculer Le maximum du tableau 
1060 M=-INF à FOR 1=1 TO À à FOR J=1 TO B à M=MAX(T(I,J),M) @ NEXT J @ NEXT 1! 
1070 Y=H/.9 à F=608/Y 
- Calcul des facteurs d'échelle 
1080 PRINT TAB(40-LEN(TS)/2): CHR$S(14)&TS&CHRS( 15 )ECHRS(13)&CHRS(10)&CHRS( 10) 
- Impresion du titre en gras 
1090 PRINT CHR$(27)8&"&k2S" 
- Passage en mode compressé (<=> MODE 2 pour ceux qui ont PRINTLEX) 
1100 G$=N$ à GLINE 1,639,1,1,0 à GOSUB !P' 

- Ligne continue pour La Ligne supérieure du cadre 
1110 GS$S=NS à FOR K=1 TO 20 à GOSUB ‘P' à NEXT K 

- Quelques Lignes vides pour aérer 
1120 FOR K=0 TO 10 & PRINT TAB(12*K+3); 

- Boucle pour mettre Les graduations horizontales 
1130 PRINT USING "#,6D":54*%K/F 
1140 NEXT K 
1150 FOR K=1 TO 12 à GOSUB ‘P' à NEXT K 

- IL ne faut pas dessiner sur Les graduations, on passe donc quelques lignes 
1160 FOR K=0 TO 10 à GPSET 32+54*K @ NEXT K 

- Dessin des petits traits pour marquer Les graduations 
1170 FOR K=1 TO 3 & GOSUB ‘P' à NEXT K 

- Ces petits traits sont hauts de 3 pixels 
1180 GLINE 32,590,1,1,0 à GOSUB !P! 

- Trait correspondant à l'axe horizontal 
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1190 G$=N$ à GPSET 32 à K$S=G6$ 

- Ligne ne contenant que l'axe vertical 
1200 FOR K=1 TO 20 à GOSUB 'P' à MEXT K 

- On aére un peu 


Les choses sérieuses commencent ! 
1210 FOR 1=1 TO A 
1220 IF X THEN PRINT USING "6D";X+1-1 
- Impression de l'année si besoin est 
1230 FOR J=1 TO B 
1240 G$=K$ à GLINE 32,TC1,1)*F,1,1,0 à LS=G$ 
- Trait supérieur de La barre en cours 
1250 GOSUB ‘p! 
1260 P=IP(RND*Z(J,3)) 
- Valeur initiale du “premier-incrément" 
1270 FOR K=1 TO 12 
- 1 Ligne supérieure, 12 Lignes pour l'intérieur, 1 Ligne inférieure 
1280 G$=N$ à P=MOD(P+Z(J,4),2(J,3)) 
- Seul Le “premier-incrément" change entre chaque Ligne de l'intérieur 
1290 GLINE 32,TC1,J)*F,P+1,2(J,2),2(J,1) 
1300 GOSuB ‘p! 
1310 NEXT K 
1320 G$=L$ à GOSUB 'Pp! 
- Ligne inférieure 
1330 G$=K$ à FOR K=1 TO 2 à GOSUB !'P' à NEXT K 
- 2 Lignes pour aérer 
1340 NEXT J 
1350 G$=K$ à FOR K=1 TO 20 à GOSUB 'P! à NEXT K 
- 20 Lignes vides entre chaque “année” 
1360 NEXT 1! 
1370 G$=N$ à FOR K=1 TO 10 à GOSUB 'P! à NEXT K 
- 10 Lignes vides pour aérer 


Traitement des Légendes 
1380 FOR J=1 TO B 
1390 PRINT & PRINT TAB(18);X$(J) 
- Impression du texte de La légende 
1400 G$=N$ à GLINE 32,40,1,1,0 à L$=G$ à GOSUB 'p' 
- Ligne supérieure du carré de La Légende 
1410 P=IP(RND*Z(J,3)) 
1420 FOR K=1 TO 10 à GS=N$ à P=MOD(P+2(J,4),2(J,3)) 
1430 GLINE 32,40,P+1,2(J,2),2(J,1) à GOSUB :P:! 
1440 NEXT K 
1450 G$=L$ à GOSUB 'p' 
- Impression de La Ligne inférieure 
1460 G$=N$ à FOR K=1 TO 2 à GOSUB 'P' à NEXT K 
- deux Lignes vides entre chaque légende 
1470 NEXT J 
1480 G$=N$ à FOR K=1 TO 10 à GOSUB !P! à NEXT K 
- 140 Lignes vides pour aérer 
1490 GS=NS à GLINE 1,639,1,1,0 à GOSUB :p! 
- Trait inférieur du cadre 
1500 ENDLINE @ PRINT @ PRINT à END 
- C'est fini ! 
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ESSSSETESSEESESSSSSSSSESSSEEELELEESESESSSSSS==S==SESSSLILLSESSEZS= 
1510 ‘P': GPSET 1 à GPSET 640 à PRINT CHR$(27)8&"*b80W"&GS à RETURN 
- Les deux bords opposés du cadre, puis impression de La Ligne 


Table des paramètres de motifs 


mm 


1530 DATA 8,1,9,4 
1560 DATA 3,1,4,2 
1550 DATA 6,2,7,8 
1560 DATA 6,2,7,6 
1570 DATA 1,1,2,1 
1580 DATA 9,1,5,4 


ee ee ee rer rer er rer re ee eee rer re ee ee er rer re dr 


Programme EXEMPLE" (pour montrer l'utilisation de GRAPH) 


10 T$="Un exemple 

20 A=4 

30 B=6 ! Pour montrer tous Les motifs 
40 x=1983 

50 OPTION BASE 1 ! Non necessaire, mais plus pratique pour Le READ 

60 DIM T(A,B),X$(B) 

70 FOR I=1 TO A 

80 FOR J=1 TO B 

90 T(1,J)=RND*8+2 

100 NEXT J ° 
110 NEXT 1 

120 READ XS$ 

130 CALL GRAPH(T,A,B,X,XS,T$,0) 


140 DATA tulipes,roses,marguerîites 
150 DATA bleuets,violettes,poetes 


SE EE D er D re re re 


Progremme "CONTE" (essayez, vous verrez |) 


2 ON ERROR GOTO 2100 

- LES TROIS ALERTES PETITS POIS. 

20 BS=CHR$S(10)&CHRS(10)&CHRS(10)ECHRSC 10) 
30 PRINTER IS :DISPLAY @ DISPLAY IS :DISPLAY 
35 GOSUB 2200 
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40 PRINT #  téééeéaeeéneeteeettnm 


50 PRINT “ * . 

60 PRINT # %* UN CONTE DE *" 

70 PRINT # #* Raymond QUENEAU *# 

80 PRINT " * . 

90 PRINT * 

100 GOSU8 2200 à PRINT "Desirez-vous connaitre” à PRINT "l'histoire" 

105 PRINT “des trois alertes petits pois 7?" 

110 PRINT ‘Oui/Non' & AS$=UPRCS(KEYWAITS) 

120 IF A$='0! THEN 400 

130 IF AS='N' THEN 200 ELSE 2100 

200 PRINT “Preferez-vous celle des trois" à PRINT “grands minces echalas ?" 
205 PRINT "Oui/Non“ à AS$=UPRCS(KEYWAITS) 9 GOSUB 2200 

210 IF A$=#O" THEN 1600 

220 IF AS=UN“ THEN 300 ELSE 2100 

300 PRINT "Preferez-vous celle des trois" à PRINT “moyens mediocres arbustes 7" 
305 PRINT “Oui/Non“;A$ à AS=UPRCS(KEYWAITS) à GOSUB 2200 

310 IF A$="O" THEN 1700 ELSE 2100 

400 PRINT "IL y avait une fois trois" @ PRINT “petits pois vetus de vert" 
410 PRINT “qui dormaient gentiment" à PRINT “dans Leur cosse. Leur visage" 
420 PRINT “bien rond respirait" @ PRINT “par Les trous de leurs narines" 
430 PRINT “et L'on entendait leur“ à PRINT “ronflement doux et harmonieux." 
440 MAIT 5 @ PRINT “Preferez-vous" à PRINT “une autre description ?" 

450 PRINT “Oui/Non“ à AS$S=UPRCS(KEYWAITS) à GOSUB 2200 

460 IF A$="O" THEN 900 

470 IF AS="N# THEN 500 ELSE 2100 

500 PRINT * Ils ne revaient pas." à PRINT “Ces petits etres, en effet," 
510 PRINT “ne revent jamais." 

520 WAIT 5 @ PRINT “Preferez-vous qu'ils revent ?" 

530 PRINT “Oui/Non*t & A$S=UPRCS(KEYWAITS) à GOSUB 2200 

540 IF AS="0* THEN 600 

550 IF AS$=#N“ THEN 700 ELSE 2100 

600 PRINT "Ils revaient. Ces petits etres “ à PRINT “en effet revent toujours" 
610 PRINT “et Leurs nuits secretent des” 

620 PRINT “songes charmants." 

630 PRINT “Desirez-vous" à PRINT “connaitre ces songes ?" 

640 PRINT "Oui/Non“ @ AS$S=UPRCS(KEYWAIT$S) & GOSUB 2200 

650 IF UPRC$S(A$S)="OUI" THEN 1100 

660 IF UPRCS(AS$)="NON" THEN 700 ELSE 2100 

700 PRINT "Leurs pieds mignons trempaient" à PRINT “dans de chaudes chaussettes" 
710 PRINT “et ils portaient au Lit" 

720 PRINT “des gants de velours noir." 

730 WAIT 5 à PRINT “Cette couleur“ à PRINT "vous convient-elle ?" 

740 PRINT “Oui/Non* à AS$S=UPRC$S(KEYWAITS) à GOSUB 2200 

750 IF AS$="0" THEN 1000 

800 PRINT “Ils portaient au Lit” à PRINT “des gants de velours bleu." 

810 WAIT 5 Q PRINT “Cette couleur" à PRINT “vous convient-elle 7" 

820 PRINT “QOui/Nont“t à AS=UPRCS(KEYWAITS) à GOSUB 2200 

830 IF A$="O" THEN 1000 

840 IF AS="N" THEN 700 ELSE 2100 

900 PRINT “IL y avait une fois" à PRINT “trois petits pois qui roulaient" 
910 PRINT "leur bosse sur les grands" Q PRINT “chemins. Le soir venu," 
920 PRINT “fatigues et Las, ils" Q PRINT “s'endormirent tres rapidement." 
930 WAIT 5 à PRINT “Desirez-vous" à PRINT “connaitre La suite ?" 


RRRRRRRR RER RÉ RER RE RER 
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931 

940 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1181 
1182 
1185 
1186 
1200 
1205 
1210 
1220 
1230 
1235 
1240 
1250 
1260 
1270 
1274 
1276 
1278 
1280 
1282 
1284 
1286 
1288 
1300 
1310 
1320 
1340 
1350 
1360 
1370 
1400 
1410 
1420 
1430 
1440 
1450 


PRINT “Oui/Non“ @ AS=UPRCS(KEYWAIT$) à GOSUB 2200 

1F A$="O" THEN 500 ELSE 2100 

PRINT “Tous Les trois faisaient" à PRINT “Le mème reve, ils s'aimaient" 
PRINT “en effet tendrement" 

PRINT “et, en bons freres trumeaux," 

PRINT “songeaient toujours" à PRINT “semblablement." 

VAIT 5 à PRINT "“Desirez-vous connaitre" à PRINT “Leur reve 7?" 
PRINT "Oui/Non'"' à AS$=UPRCS(KEYWAIT$) @ GOSUB 2200 

IF A$="UO# THEN 1100 

IF AS$S=UN# THEN 1200 ELSE 2100 

PRINT “Ils revaient qu'ils allaient" 

PRINT “chercher leur soupe” à PRINT “a La cantine populaire" 
PRINT “et qu'en ouvrant leur gamelle" 

PRINT “ils decouvraient que c'etait" à PRINT “de La soupe d'ers." 
PRINT “D'horreur, ils s'eveillent." 

VAIT 5 @ PRINT “Voulez-vous savoir pourquoi" 

PRINT “ils s'eveillent d'horreur 7?" 

PRINT “Oui/Non" à AS=UPRCS(KEYWAIT$) à GOSUB 2200 

IF A$="O" THEN PRINT “Consultez Le Larousse" 

PRINT “au mot ERS" 

PRINT “et n'en parlons plus 1" à GOSUB 2200 

IF A$=NON THEN 1200 

IF AS$="N" THEN 1200 ELSE 2100 

PRINT "Opopoil! s'ecrierent-ils" 

PRINT “en ouvrant Les yeux." 

PRINT “Opopoi! quel songe" 

PRINT “avons-nous enfante La 1* 

PRINT “Mauvais presage, dit Le premier." 

PRINT “Oui-da, dit Le second, c'est" 

PRINT “bien vrai, me voila triste." 

PRINT “Ne vous troublez pas ainsi, dit” 

PRINT “le troisieme, qui etait“ à PRINT “Le plus fute, il ne s'agit pas“ 
PRINT “de s'emouvoir," à PRINT “mais de comprendre," 

PRINT “bref, je m'en vais” 

PRINT “vous analyser ca." à WAIT 5 @ GOSUB 2200 


GOSUB 2200 à PRINT "Si vous desirez connaitre" à PRINT “tout de suite l'interpretation" 


PRINT “de ce songe, tapez [1]" 

PRINT “Si vous souhaitez au contraire" 

PRINT “connaitre Les reactions" à PRINT “des deux autres, frappez [2]" 
PRINT “1 ou 2" à AS=UPRCS(KEYWAITS) 

ON VALCA$) GOTO 1500,1300 

PRINT “Tu nous La bailles belle," à PRINT “dit Le premier. Depuis quand" 
PRINT “sais-tu analyser Les songes ?" 

PRINT “Oui, depuis quand, ajouta“ à PRINT “Le second." 

GOSUB 2200 à PRINT “Desirez-vous savoir” à PRINT “depuis quand ?* 

PRINT “Oui/Nont & AS$=UPRCS(KEYWAIT$) à GOSUB 2200 

1F A$=UON THEN 1400 

PRINT “ Tant pis," @ PRINT “vous ne Le saurez pas plus!" 

GOSUB 2200 à PRINT “Depuis quand ?# à PRINT “s'ecria Le troisieme." 
PRINT “Est-ce que je sais, moi ?" à PRINT “Le fait est que je pratique" 
PRINT “la chose. Vous allez voir!" 

GOSUB 2200 à PRINT “Voulez-vous aussi voir 7?" 

PRINT “Oui/Non't. & AS$S=UPRCS(KEYWAITS) à GOSUB 2200 

IF A$=#O" THEN 1500 
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1460 IF ASz"N“ THEN 1470 ELSE 2100 

1470 PRINT “Tant pis, car vous" à PRINT “ne verrez rien." 

1500 GOSUB 2200 à PRINT "Eh bien1 voyons," à PRINT “dirent ses freres." 
1510 PRINT "Votre ironie ne me plait pas," à PRINT “repliqua l'autre," 
1520 PRINT "et vous ne saurez rien." 

1530 PRINT "D'ailleurs, au cours de cette" à PRINT "conversation d'un :ton assez vif," 
1540 PRINT “votre sentiment d'horreur" 

1550 PRINT “ne s'est-il pas estompe ?" à PRINT “efface meme ?" 

1555 PRINT “Alors, a quoi bon remuer” 

1556 PRINT “Le bourbier de votre inconscient" 

1557 PRINT “de papilionacees ?" à WAIT 10 

1565 GOSUB 2200 à PRINT "Allons plutot nous Laver" à PRINT “a La fontaine et saluer" 
1570 PRINT “ce gai matin dans L'hygiene et" à PRINT "La sainte euphoriel"# à GOSUB 2200 
1575 PRINT “Aussitot dit, aussitot fait:" 

1580 PRINT “Les voila qui se glissent hors" 

1585 PRINT “de leur cosse, se laissent dou-" 

1587 PRINT "cement rouler sur Le sol et puis" 

1589 PRINT “au petit trot gagnent joyeuse-" 

1591 PRINT “ment Le theatre de leurs" 

1592 PRINT “ablutions." à WAIT 5 

1593 GOSUB 2200 à PRINT “Desirez-vous savoir ce qui" 

1594 PRINT “se passe sur Le theatre de” à PRINT “leurs ablutions ?" 

1595 PRINT “Oui/Non" à AS$S=UPRCS(KEYWAITS) à GOSUB 2200 

1596 IF A$="O" THEN 1600 ELSE 2100 

1600 PRINT “Trois grands echalas" à PRINT “Les regardaient faire." 

1610 WAIT 5 @ PRINT “Les trois grands echalas" à PRINT "vous conviennent ils 2" 
1620 PRINT “Oui/Non" à AS$=UPRCS(KEYWAITS) à GOSUB 2200 | 
1630 1F AS$="0" THEN 1800 

1650 IF AS$=UN" THEN 1700 ELSE 2100 

1700 PRINT "Trois moyens mediocres arbustes “ à PRINT “Les regardaient faire." à WAIT 5 
1710 PRINT CHR$S(10)&"Les trois moyens mediocres" 

1720 PRINT "arbustes vous conviennent-ils ?" 

1730 PRINT “Oui/Non" à AS$=UPRCS(KEYWAITS) à GOSUB 2200 

1740 IF AS$="O" THEN 1800 ELSE 2100 

1800 PRINT "Se voyant ainsi zyeutes," 

1810 PRINT “Les trois alertes petits pois," 

1820 PRINT “qui etaient fort pudiques," 

1830 PRINT “s'ensauverent." 

1840 PRINT “Desirez-vous savoir ce qu'ils" 

1850 PRINT “firent ensuite ?* 

1860 PRINT “Oui/Non“ à AS=UPRCS(KEYWAITS) à GOSUB 2200 

1870 1F A$="O“ THEN 1900 ELSE 2100 

1900 PRINT “Ils coururent bien fort pour” 

1910 PRINT “regagner leur cosse et," 

1920 PRINT “refermant celle-ci derriere eux," 

1930 PRINT “s'y endormirent de nouveau” 

1940 GOSUB 2200 à PRINT “Desirez-vous connaître La suite?" 

1950 PRINT “Oui/Nont & AS$=UPRC$S(KEYWAITS) à GOSUB 2200 

1960 IF A$="0" THEN 2000 ELSE 2100 

2000 PRINT #IL n'y a pas de suite," 

2010 PRINT * Le conte est termine." à GOSUB 2150 

2100 PRINT “Dans ce cas, Le conte“ à PRINT “est egalement termine." 

2150 OFF ERROR à DISPLAY IS :DISPLAY à PRINTER IS :PRINTER à END 

‘2200 WAIT 5 @ PRINT CHR$(27)&"EM£CHRS(27)&"<" à RETURN 
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LE COIN DES LHEX 


Ainsi qu’à l’accoutumée le coin des Ihex contient outre les LEX de la rubrique assembleur, 
CHARLEX nécessaire à la rédaction de votre contribution. Rappelez-vous qu’il n’est pas 
nécessaire de posséder un module Forth-Assembleur pour bénéficier des nouvelles 
fonctions proposées. Il vous suffit de copier le programme Basic MAKELEX ci-dessous 


puis de rentrer les listing hexadécimaux de la rubrique. 


GRAPHLEX GLINE 
GPSET 


RPLCLEX RPLCS 


SHRINKLEX SHRINK 


DIVILEX FPRM 
NPRM 
PGCD 
PHI 
PPCM 
PRIM 


225078 
225079 


225080 


225081 


225082 
225083 
225084 
225085 
225086 
225087 


J.J. Dhénin 


10 CALL MLEX à SUB MLEX à SFLAG -1 @ PURGE AH @ INPUT “Nb. d'octets: ";N @ LC OFF 


20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$S("AH")) @ B=A à GOSUB 130 
30 a=1 à X=0 à INPUT “000: ",P$S;A$ à C$=A$ à S=0 à GOSUB 90 


40 a=2 à X=1 à GOSUB 80 à AS=ASRCS à A=A+37 à N=N*2+37 Q Q=3 Q SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CSIS*FLAG(5)+1] à POKE DTHS(A),CS à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 


60 DISP DTHSCX)[31; à INPUT ": ,P$[1,MOD(N,16)];C$ à GOSUB 90 

70 POKE DTHS(A),CS à POKE DTHS(B),A$ à CFLAG -1 à END 

80 DISP DTHS(X) [3]; à INPUT ": ",P$;CS$ 

90 DISP DTHS(X)[31; à INPUT " sm ","---":D$ 

100 M=S à FOR Z=1 TO LEN(CS) à M=NUM(CS[Z])+M+1 @ NEXT Z 

110 IF DS=DTHS(MOD(M,4096)) [3] THEN GOSUB 130 à S=M à RETURN 

120 DISP “Erreur de somme" à BEEP à P$=C$ à POP @ ON Q GOTO 30,40,50,60 


130 P#=u-----...---..... M à RETURN 


0 
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PRIM2LEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
O0E: 


PRIM3LEX 


DIVILEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 


| BC PROS | 


ID#E1 


0123456789ABCDEF sm 


052594D423C45485 373 
802E009530817068 601 
1C0001E757500000 A23 
F710000000000000 D51 
071000F7052594D4 0B7 
751FF8118FC1DB01 463 
028F2EA2104AF2AF 812 
1B05550A19A0C59F BA7 
A15A94A15A15A180 F34 
C58E10882281EAF2 2D5 
83250B6621809109 633 
1108FB7CE08A9011 9C8 
199F63E11A5F0111 D50 
8FB13B1AF68D612F 10F 
0 140 


ID#E1 


0123456789ABCDEF sm 


0525940433C45485 374 
802E009530817068 602 
A21001E757500000 A24 
F710000000000000 D52 
071000F7052594D4 0B8 
751FF8118FC1D801 464 


: 028FFB6CO8F435C0 812 
: AD47E90AF7112749 BB6 
: 0108AF2217F30207 F24 


930753071307A207 278 
920722071207A107 5CB 
310751078008830D 94A 
11A5A4809809809A CCB 
F5110209F4A08F10 057 


: C55FB705CFA700D4 411 


80BF55EE218AC00A 7C5 
FAO78FB13B1AF680 B93 
612FO8F2EA2104AF F36 
2AF1B056600A19A0 28F 
C59FA15A94A15SA1S 669 
A180C58E01F 8EA 


0123456789SABCDEF sm 


44946594C4548502 36C 
802E000040817068 68D 
835001E257500000 A06 
F440000000000000 D34 
0EE100FB00A6200F OC6 
61078100F120E500 420 
OFA205E000F5303D 7A8 
200F7640525D4257 B13 
E40525D435705743 E82 
4444550584945570 1DB 


94 octets 


147 octets 


ID#E1 666 octets 


00A: 
008: 
00C: 
000: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015 
016: 
017: 
018: 
019: 
O1A: 
018: 
01C: 
012: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
024: 
028: 
O2c: 
02: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034 
035: 


ë 


037: 
038: 
039: 
034: 
038: 
03C: 


50534D4657052594 53F 
D4751FF8118FC1DB 902 
010074F073E07B24 C72 
10810AAF0B649766 FFC 
068647CA21031098 371 
FB7CE0100119A7E1 712 
128FBBCE01198FB7 AD1 
CE01021131199720 E2E 
2110972818FB7CE0 1BC 
9702B10011968EF1 54A 
1A6A048822754074 8B6 
901138FB7CE01002 C36 
OAF239FFFO5AGDS8E 008 
AFA11C8FB7CE0118 3CE 
9F2C41148FBBCE06 78C 
DB38FC8C8017F10A B53 
100751098E321129 EB3 
BEB111085001AF22 238 
180CE20312101078 592 
D91FB08822758F74 93B 
006A6311A97E80AF CD2 
E10A730310810811 034 
276F210910C1108F 3A9 
B7CE0979E0111AF9 75B 
1095AE 1190188227 AC7 
06F11A97E907D7F1 E6D 
0A7E201181129F27 1E2 
1794197251118809 53B 
10855EAF267E2118 8CA 
6cD27382AFAB7682 C7E 
281E832508741001 FDF 
12756210AAF21082 356 
01103059F600602F 683 
88227BDE788F3061 A5A 
OC8FB7CEOAE9AE71 E39 
1C8FBBCEOA7E21A6 20E 
F968628098098091 591 
081129F2F379A097 918 
6607520118809108 C66 
1129F21278809766 FDB 
0770011860CF11BB 358 
7610B801118621281 681 
18FC1DB01007D6E7 A58 
CSE74ATAF71108FF E16 
B6CO8F435COAD479 1C7 
811081108FBBCE09 55E 
73B0AFB108840740 8E3 
06BB1AF2217A11AF C8B 
2227111AF2247801 FEA 
74017DF07CF075F0 389 
74F07DE076E078E0 730 
7ED070D07CD075D0 AED 
7ECO7ACO7CC072C0 EAO 
71c070c076807580 222 


: 7EA077A079A078A0 5BF 


71A070A079907F80 93E 
7E807D8076807880 CC1 


: 71807A707C707270 031 


7E607D607C607560 3B6 
7E50706076507550 717 


/ RPLCLEX 


FERS2S 


o 


05 


SFS8SS28 


: 74507D407C407C30 A91 
: 744080293C001102 DDD 
: 98091098FB7CE011 172 


9218AD606A509F26 504 
0661F1186A408098 875 
0980980980910911 BCD 
0209FAAOBF20C55F F7D 
B7ASCFA7AOD480BF 356 
65EE1192197C0007 603 
119850110018F2EA A44 
2104AF2AF1B805550 DCD 
A19A0C59FA15A94A 186 
15A15A180C58E018 50B 
F4BCEOAFABF223B1 8DF 
AF687000A4E017ED C86 
F8D612F0F EA6 


0123456789ABCDEF sm 


2505C434C4548502 369 
802E001040817068 68B 
éc6001E050500000 AOA 
F710000000000000 D38 
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040: C5962F4E5E570118 494 008: 905908D393908F36 FB6 022: A1011188BEF41C41 C5D 
041: 607487BE1740131E 811 009: F9041F1371081358 32F 023: 4710A1C4D2E610B1 FE7 
042: 5966A18750085BE5 B9A O0A: FDF670112CCCC490 6E9 024: 1179FE111E410111 354 
043: E55368601273E031 F06 00B: 31F350D113D2CE10 A73 025: 88BE52113E410311 6C6 
044: E296215314296284 268 O0C: 97840570B8AEAB868 E12 026: A8B2BD111147CA10 AS5D 
045: 3104962F374C031C 5E2 00D: 9031635EADBDAD2C 1D7 027: 11188B21C8D84A80 DE9 
046: 59622311A8B580DB 96D 00E: E15F3E6550173137 556 028: F E30 
047: 607F11B8BB00DB13 DOA 00F: D5E811B8F10FA1C3 900 

048: 414E962F087B00E7 09C 010: 3104188D84A80131 C74 CHARLEX ID#E1 624 octets 
049: E761EF8577020461 422 011: 17F1738FD1F60071 018 

O4A: 87B09E7E711B88B0 7CB 012: 7413711170105000 362 0123456789ABCDEF sm 
0:B: 0538038DD4490137 B3A 013: 286800316302101A 6AC 

O4C: 1351108B60E 1C411 EBS 014: FOCC100847848712 A2A 000: 34841425C4548502 35E 
04D: 91451C4D91451C4D 246 015: 0400134110€41001 D63 001: 802E004040817068 683 
04E: B1458778011907CF 5E9 016: 198A275878011%645 OCA 002: 5E4001E000000000 9F7 
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054: C59663272DF11A8B AE2 01C: 702CD85802F 523 008: 11014D1CB1500000 F1F 
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059: 142966E011988731 C71 000: 5556581008364545 FEB 
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no. LÉLLELELELCELCERLERELELELELLERELELERI 

PRENOM |_|_1_1_1-1_1-1_1_1_1_1_1_1_[_1_1_1 DATE DE NAISSANCE [_[_[/1_1_1/1 1] 

ADRESSE |_{_{_1 11111 11111111 111111 
PÉLRÉLLELELELER EEE ELREBEELEER) 
LLLLELLLIELLELE EU EELEELLEELLEERLEEEE 

LT VX NN NN D D EN NN D NN NN AN A NN AN A PP A A A 

CODE POSTAL |_[_1_1_1_1 PAYS [121111111121 T III LI 

TELEPHONE DOMICILE |_{_1/1_1_1_1_1_1_1_1 121 BUREAU [| 1/1 TI 

PROFESSION 

INTERETS 

MATERIEL HP EN VOTRE POSSESSION 

AUTRE MATERIEL MICRO- INFORMATIQUE 

COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 

PUBLICITE MAGAZINE 


AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 











Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux ce ma connaissance, je déclare avoir Le droit de fournir 
tous Les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dans Le journal de Liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de La part des dirigeants du 
PPC PARIS CHAPTER. 


DATE |_|_1/1_11/191 11 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE À 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE |_|_|/|_|_|/19]_|_| A L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ ] CHEQUE BANCAIRE N BANQUE 

[ } CHEQUE POSTAL 3 VOLETS N 

[ 1 MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE A COMPTER DU |_|_|/]_|_|/19]_]_| 
JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE A 
VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS 
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Le Journal JPC est le bulletin de liaison 
entre les membres de l'association "PPC- 
PC", régie par la loi de 1901. Le Club 
est éditeur du JPC, et son siège est au 
56, rue Jean-Jacques Rousseau, 75001 
PARIS 
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Gengoux et Philippe Guez 
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